ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
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cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 
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SS HH HH WW Ww CC LL SS TT RR RR 
SSSSSS HHHHHHHHHH = WW ww CC LL SSSSSS TT RRRRRRRR 
SSSSSS HHHHHHHHHH = Wl ww CC LL SSSSSS TT RRRRRRRR 
SS HH HH WW WW WwW CC LL SS TT RR RR 
SS Kr HH WW WW WwW CC LL SS TT RR RR 
SS HH HH WWWW WWWw CC LL SS TT RR RR eeee 
SS HH HH WWW WWW CC LL SS TT RR RR cece 
SSSSSSSS HH HH WW Wh CCCCCCCC ~LLLLLLLLLL SSSSSSSS TT RR RR cece 
SSSSSSSS nH HH WW ‘alla CCCCCCCC LLLLLLLLLL SSSSSSSS TT RR RR eeee 
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LL I SS 
] SSSSSS 
1 SSSSSS 
I SS 
I SS 
I SS 
LL I SS 
LLLLLLLELLL 11] SSSSSSSS 
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Copyright notice 

Program description 

Definitions. 

Ascii strings. 

Local storage. 

Macro definitions. 

- Conditional Branch Macro. 
ad DEFINE_FIELD macro. 
Cluster report field descriptors. 
Local status report field descriptors. 
Main program Loop. 
Initialization. 

Exit handler. 

SCS report generation routine. 
Local report generation routine. 
Error message output. 
Broadcast message handling. 


Strent ine routines. 
- ET_SCROLL routine. 
- CHECK_MORE routine. 


ad Set scrolling region routines. 
AST routines. 

Display header generation. 

- Output the display description 
ad Output the time 

- Box wht routines. 

- DRAW_LAST_CINE : 

- Field title generation. 

- Class title generation. 

REFRESH routine, 

FIND_ENTRY routine. 

Miscellaneous routines. 

Data formatting routines. 

Data display routines. 

- GET_DATA routine. 

General data display routines. 
Cluster class display routines. 
oe class display routines. 


Circuits class display routines. 
Local port display routines. 

- CHECK_DIF routine. 

Description of snapshot buffers. 
Snapshot buffers. 

Snapshot routines. ft 

- Interlock Queue routine. 

- GET PB 

Parser State Table. 

Tparse g bh rout tees. 
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- IDENT 00° 
-SBTTL cheer tant notice 


~PARAAARAAAAAAAAAAALLALSALELALALAS EASELS EERE ESET ESE R SE EEE CEES ERE C ESE eee aaa 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVE 


THIS SOFTWARE IS cite UNDER A LICENSE AND MAY BE USED AND series 
ONLY IN eet WITH THE TERMS OF SUCH LICENSE AND WITH : Le 


*® ® 
® tr 
® ® 
® ae 
t ® 
® ® 
® 
* IN 0 é OTIC SOF TWAR NY 0 « 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
*® ® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® wt 
: * 
*® ® 
sf ® 
** * 
*® ® 
® ® 
** * 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: 
VAX/VMS SHOW CLUSTER utility 


ABSTRACT: 


SHWCLSTR is a utility used to display infomation about CI clusters and 
the local hardware interface to f e cluster. Contained within are the 
routines necessary to extract this information from the SCS database 
and the Cl port database and present the information to the user in a 
readable format. Furthermore, all routines needed to parse and process 
input from the user are also included here. 


AUTHOR: Paul R. DeStefano, July, 1983 


MODIFIED BY: 


v03-016 PRDO111 Paul R. DeStefano 31-Jul-1984 
Update FIRST_DATA_LINE, which contains the number of 
first Line of the scrolling region, when the CLUSTER 
class is added or removed from the display because 
the ADD or REMOVE field command was entered and the 
field was the first CLUSTER class field being added 
or the last being removed. 


V03-015 PRDO107 Paul R. DeStefano 20-Jul-1984 
Correct formating of descriptor passed to $GETDVI. 
Make INIT assume that output goes to a Listing file 
if $GETDVI fails. 
Make sure initialization file gets executed when 
running in a Batch job. 
Change scrolling back to original design. 


v03-014 PRDO103 Paul R. DeStefano 11-Jul-1984 
Make sure DISPLAY_COMMON assumes successful return. 
Fix access violation in OUTPUT_TIME »>utine. 


v03-013 PRDO100 Paul R. DeStefano 08-May-1984 
arent tee RESET routine to properly restore the init 
ag. 


v03-012 PROO0I8 Paul R. DeStefano 30-Apr-1984 
Fix DO SNAPSHOT routine so that variable length buffers 
are unlocked. 
v03-011 PRDOO9S Paul R. DeStefano 11-Apr-1984 
Removed COORD_STATUS and LOCAL_STATUS fields. 


PRDO089 Paul R. DeStefano 29-Mar-1984 
Fix display of CLUSTER class title when the ADD CLUSTER 
command is used in an initialization file. 


v03-010 
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v03-009 cneeeee Paul R. DeStefano 25-Mar-1984 
Store only gre prefix of offset name to save space in 
field descriptors. 
Added code to format a 15 character time string to 
FORM RMAT. DATA routines. 
Improved error messages. 
Improve output of time. 
Improve method of Limiting up= and left-scrolling. 
Add SECOND_CHANCE routine. 
Limit refreshing on commands that fail. 
Added TRANS_TIME and QD_NAME fields. 
Removed FORM_STATUS fieTd. 


v03-008 poorer’ Paul R. DeStefan 11-Mar-1984 
Don't do refresh otter’ SET INTERVAL or SET SCREEN commands. 
Correct output when using SYSSOUTPUT is redefined using 
DEFINE/USER. Correct output when 1/0 is to a mailbox. 
Correct output when /OUTPUT is used within a BATCH job. 
Correct maximum data width when ASCIC format is used with 
a display routine other than DISPLAY_FIELD. 


V03-007 PRDOO076 aul R. DeStefan 28-F eb- 1984 
Correct output tite name hen SYSSOUTPUT is defined as a 


3 Add” new fields to CLUSTER and MEMBERS classes. 

: Make sure Local System Block is displayed when VMSVAXCLUSTER 
3 doesn't equal 1. 

3 Make oe Line drawing and special graphics character are set 
: in G1 area in DECcrt on each screen update. 

: sett ser “REGION. FULL before exiting for foreign terminals 

3 emulatin Ss. 

3 Perform Vnitiat syntex checking using DCL_PARSE. 

3 Improved Pare FYECD Lists of parameters and qualifier values. 
3 Added ADD_A ELDS routine for new ADD class/ALL qualifier. 
: Make INTERVAL svete . Spe rather than delta time. 

3 Improved REMOVES FI 

3 Modified REMO FIELD a Te to turn off a class when the 

3 last field is removed. 

3 Display CLUSTER class at the top of the CLUSTER report. 


V03-006 PRDO0046 Paul R. Destefano 11-Jan-1984 
Correct the number of bytes eheph ayes by } ig SYS. ID field. 
Make COUNTERS a separate clas 
Retr {Snepenes wit expended buffers if snapshot buffers 
overflow. 


v03-005 PRD0043 aul R. DeStefano 27-Sep-1983 
Initialize cts. B count in path blocks at 
PBSSHCSL_NUM oft so that a circuit losing all 
connections will be properly detected. 
Fix access violation Pee CHECK_POS routine. 


v03-004 PRDO042 aul R. DeStefano e7~Sep- -1983 
Fix setup of tote lal testten file default so tha 
extention of .INI is defaulted but not forced 
Add additional remote port types to RP_TYPE field. 
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161 
188 -SBTTL Definitions. 
190 z System definitions: (From SYSS$LIBRARY:LIB8.MLB) 
166 ° 
189 SCDLDEF ; Define connection descriptor list 
: offsets. 
| 000 192 SCDTDEF $ bet ine connection descriptor table 
3; offsets. 
| 80 171 SCIBDDEF : Define buffer descriptor offsets. 
$ 178 SCIBDTDEF 3 Det ine butter descriptor table 
: offsets. 
| 00 174 SCLUBDEF 3; Define Cluster Block. 
000 175 SCSBDEF 3; Define Cluster System Block. 
4 108 SOCDEF : Define device class codes. 
4 17 SDDBDEF : Define DDB offsets. 
000 178 SDIBDEF 3: Define device characteristics offsets. 
0000 179 SOVIDEF : Define item identifier codes. 
0000 180 SHLPDEF 3; Define help flaqs. 
0000 8 181 SIPLDEF 3; Define processoi priority levels. 
0000 = 3 SMSGDEF 3; Define noesaoe types. 
0000 1 SPBDEF :; Define path block offsets. 
0000 184 SPDTDEF : Define port descriptor table offsets. 
44 185 SPRVDEF : Define privilege mask bits. 
000 1 § SSBDEF : Define system block offsets. 
O605 1 SSCROEF 3 Define screen package parameters. 
000 188 SSCSDEF 3; Define SCS gqesnee ormats. 
0000 189 SSDIRDEF 3; Define SCS directory entry offsets. 
0000 190 SSSDEF : Define status codes. 
0000 191 STPADEF : Define LIBSTPARSE parameter block. 
943 136 STRMDEF 3 Define terminal function modifiers. 
000 19 STTDEF 3 Define terminal characteristics. 
44 194 STT2DEF 3; Define extended terminal 
000 195 3; characteristics. 
0000 196 SUCBDEF ; Define UCB offsets. 
44 197 
000 138 3 
444 199 ; CI specific definitions: (From PALIB.MLB) 
00 00 ; 
000 01 
00 4 SPAPDTDEF : Define the extention to the port 
00 : descriptor table. 
4 ¢ SPPDDEF ; Define datagram offsets. 
0 3 
09 3: Define offsets into field descriptors. 
33 19 SDEFINI FD 
00 \f SDEF FOSB_FIELD_SIZE -BYTE ; Number of columns currently 
01 1 3; occupied by the field. 
3} 14 SDEF FDSB_MIN_FLD_SIZE -BYTE ; Minimum number of columns that 
a3 12 3 g9n be used to display the 
3 eld. 
0 13 SDEF FDSB_MAX_DATA_SIZE -BYTE ; Maximum number of columns 
| 


i 3 
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Oe<00 Tinitt aree TSBs S3:5ei88 PANT UIS Race ,o 5 
; 18 3; needed to display the data. 
1 SDEF FDSB_MAX_FLD_SIZE -BYTE ; Maximum number of columns 
4 9 3 needed to display the field. 
4 ; (For both title and data.) 
Be § SDEF FDSB_LENGTH -BYTE ; Number of bytes of data to 
3 extract from the SCS 
Bf ¢ ; dotebace to display the 
a9 $ SDEF § FOSB_FORMAT -BYTE : Type of format to use when 
Obe : displaying the field. 
00000008 35 ; 2,42 ; Reserve one word. 
Bode 1 SDEF FDOSL_DISPLAY_ROUT INE LONG : Raye ine to call to display the 
3 eld. 
44 : SDEF FDOSL_CLASS -LONG ; Class to which the field 
8 1 4 3; belongs. 
01 $2 SDEF FDSL_OFFSET -LONG ; Value of the SCS offset. 
0014 $ SDEF FDSL_OFFSET_PRFX -LONG ; First four characters of 
Bais 3 : offset name string. 
bat 38 SDEF FOSB_TITLE_SIZE -BYTE ; Number of characters in the 
019 39 ; title for the field. 
Bate me SDEF FOST_TITLE ; Offset to the title string. 
0019 r SDEFEND FD, ,DEF 
0000 4 
$333 Bi 
0000 46 5 Define the field display format types. 
$333 
00000001 0000 49 ASCII = 1 3; Data is to be formatted in ascii. 
0000000 4 50 HEX = § 3: Data is to be formatted in hexadecimal 
0000000 00 51 DEC = :; Data is to be formatted in decimal. 
00000004 000 2¢ ASCIC = 4 3; Data is to be formatted using a 
0000 5 3 counted ascii string. 
00000005 9464 20 TIME = 5 : Bote ts to be formatted as a time 
0000000F 900 36 TIME_STRING_LEN = 15 : Length of formatted time string. 
000 58; 
43 33 3 Define lengths and starting offsets of special buffers for snapshot data. 
oe 
3 8 ; The portion of the CDOT stored starts at CDTSL_RCONID. The length is the 
64 ; number of bytes in CDT$L_RCONID through CDT$W_QBDT_CNT plus the forward Link. 
0 65 ; The difference is a negative value to be added to the SCS offset in the 
° 66 : field descriptors to compensate for the portion of the CDT that isn't stored. 
6 ” 
44 94 6 SHC$L_CDT_BEGIN = CDT$L_RCONID 3 Starting offset. 
Sette 9 SHC$C~CDT_LENGTH= <<CDTSW_QBDT_CNT+2>-CDTSL_RCONID>+4 ; Length. 
FFFFFFF re SHCSL-COT_DIF = <CDTSL_ASGINPUT-CDTSL_RCONID>+4 ; Difference. 
73 ; 
74 ; The portion of the PDT stored starts at PDTSL_MSGHDRSZ. The length is the 


K 3 
tions, "RSEp=19be 3:30:01 LeCTUTE See 
T 
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SHWCLSTR Show ro V04-00 Page 
vous000 Bevin’ JSHWCLSTR.MAR;1 = 
3; number of bytes in PDTSL_MSGHDRSZ through POT$L_LBDG. The difference is a 
3; negative value to be added to the SCS offset in the field descriptors to 


3 compensate for the portion of the PDT that isn't stored. 


8088086 SHCSL_PDT_BEGIN = PDTSL_MSGHDRSZ ; Starting offset. 
0000000 SHCS$L_PDT_LENGTH= Ai! LBDG-PDT$L_MSGHDRSZ 3 Length. 
FFFFFFGC SHCSL_PDT_DIF = <PDT$Q_SIZE-8>-PBTSL_MSGHDRSZ ; Difference. 


: Define offsets for storing the number of circuits on a system and the number 
3; of connections on a circuit. 


p 
7 
15 
0 
i 
0 
00 (584 
8 5 
oo 

00000004 8 9 SBSSHCSL_NUM_PB = SB$L_BLINK ; Store the number of paths block on a 
0 0 3 system block where the back Link 
00 91 ; would normally be. 

00000004 00 38 PBSSHCSL_NUM_CDT= PB$L_BLINK ; Store the number of connections on a 
00 9 ; path block where the back Link would 
b8 Be : normally be. 

00 38 :; Define the offset for storing the display's Line number in the system block. 
000 97 ; This is used to associate a system with a Line in the display to insure that 
0000 98 ; a Line which has moved in the display, but has not changed does not go 
0000 99 ; undetected. 
$333 ae 
00000009 0000 02 SHC$SBE3_DIS_POS= SBSW_SIZE+1 ; Store in upper byte of size field in 
0000 03 3 system block. 
0000 04 
0000 05 ; 
445 8 3 Define offsets into MISC_BUF. 
00 ¢ 3 
000 08 
44 09 SDEFINI MB 
000 10 
444 11 SDEF MBSL_PORT_NAME .LONG =; Port name. 
0004 if SDEF MBSL_PORT NUM .LONG ; Port number. 
0008 1 SDEF MBSL_DEVTYPE -LONG ; Device type. 
tt 14 SDEF MBSL_S LONG ; Device status. 
001 15 SDEF MBSB_ERTCNT 8B ; # of reinitialize attempts remaining. 
0 16 SDEF MBSB_ERTMAX -BYTE ; Maximum number of reinits allowed. 
1 SDEF MBSW_ERRCNT . ; Number of errors logged. 
+ SDEF MBSi_FO ; Number of formative path blocks 
1 SDEF MBSL-PL_WAITERS .L ; Number of SCS non-paged pool waiters. 


: Number of free datagram buffers 
; currently queued for receives. 
SDEF MBSW_MSG_FREE .WORD ; 


SDEF | MBSW_CMDS_QUED .WORD 


; Number of free message buffers 
currenthy queued for receives. 

; Total number of messages, datagrams, 
and port commands queued for 
transmission at all priorities. 
by this port. 

; Number of responses of all kinds 
received on this port, but not yet 
processed. 


SDEF MBSW_RSPS_QUED .WORD 
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SDEFEND MB, ,DEF 
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0000002E MISC_BUF _LEN = 46 3 11 lLongwords in miscellaneous buffer. 
¢ 
: ; Define masks and bit fields for device types. 
0000000 5 40 DVT$V_VT52 = 0 3; vT5 table terminal. 
69000001 0 41 DVTSV~DCRT . : b Uiide tekestatle Loretial. 
0000 § 0 tg DVTS$V_HARD = ; ; Hardcopy device. 
69000004 rt ES el i S Tovantes tides onttee’ t 
: nc eo option present. 
0000005 000 $45 DVTSV=DISK : g Bt + tats gi hea 
0900000) $6 13 DVTSM_VT52 = 1aDVT$SV_VT52 
00000002 0000 rt: DVTSM_DCRT = 1aDVT$V_DCRT 
44 4 44 B88 49 DVTSM_HARD = 1aDVT$V_HARD 
00000008 00 50 DVTSM_UNKNOWN == 1aDVT$V_UNKNOWN 
00000010 0000 51 DVTSM_AVO = 1aDVT$V_AVO 
00000020 0000 26 DVTSM_DISK s 1aDVT$V_DISK 
0000 884 ; 
0000 55 Define the terminal screen widths. 
0000 387° 
00000050 $608 58 NARROW = *0 3 Cert $9 column mode. 
00000084 0000 59 WIDE = 132 ; DECcrt 132 column mode. 
0000 60 
0000 3¢2 ; 
0000 8 Define special keyboard characters. 
B33 
00000018 0900 66 ESC = *x1B 3; Ascii escape character. 
000000 000 67 CSI = *X9B ; Eight bit equivalent of "ESC C"’. 
00000017 0000 68 CTRLW zs “x17 3; Ascii control-wW. 
0000001A 44 +4 CTRLZ = “X1A 3: Ascii control-Z. 
000 0 
0000 372 ; 
3 73 i 3 Define the escape sequences sent by the arrow keys. 
75° 
0000 ee G 6 DCRT_UP_ARROW = *A/CA/ ; DECcrt up arrow. 
poe ; 77 DCRT_OWR_ARROW = *a/(B/ ; DECcrt down arrow. 
sit'9) 58 4 DCRT-LFT-ARROW = *A/LC/ ; DECcrt left arrow. 
0004458 44 DCRT_RT_ARROW = “A/(D/ ; DECcrt right arrow. 
0 1 1 VT52_UP_ARR = “A/A/ ; v5 arrow. 
0 ; ¢ VT52-DWR_ARROW = “a/B/ 3 vT5 down arrow. 
000004 VT52-LFT_ARROW = *A/C/ ; vie left arrow. 
10000044 : VT52-RT_ARRO = “a/D/ ; VT5S2 right arrow. 
8 : Special characters to turn the special graphics characters on and off. 
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0000000E 
0000000F 


Se 
90000065 
0000006E 
00000071 
Ss 
09000074 
0000007 
00000078 


00000000 
00000001 
0090000 
0000000 
00000001 


00000008 


0000000 
0000000 


00000001 


luster Utilit 
tions. ’ 
9; 
866 390 
8 4 GRAPHICS_ON = 
38 GRAPHICS_OFF = = 
94 
95 
0 3 
ae 
00 99 ° 
09 400 LR_CORNER s 
401 URTCORNER = 
000 208 LETFORNER - 
009 102 cROSS = 
rr re 
= 
000 4 $ RIGHT s 
00 408 BOTTOR_T = 
44 409 TOP_T s 
000 410 VERT_BAR = 
44 411 
000 tl 
0000 41 ; 
0000 414; 
ne 
000 417° 
000 $18 CL$V_BROCST z 
4 419 CL$V_CMD = 
00 420 CLSVZERROR = 
0000 : 1 CL$V-SCROLL = 
00 4 § CLSM_BROCST = 
44 424 CLSM_CMD = 
000 425 CLS$M~ERROR = 
000 4 $ CL$M~ SCROLL = 
00 4 
ass 
800 480 ; 
; Define commonly 
0 ? Defi l 
4 : 
434 HEADER_START = 
435 HEADER-EMD 2 
439 
4 3 3 
aio ; Define the mask 
441 ° 
44g RPTSV_CLSTR : 
443 RPTSM~CLSTR z 
444 
0 445 


m 3 


"QoSEP=1984 93:28:08 ECCTUTE SRESSHUCLSOR.maR: 1 


“X0E 
“XOF 


DECcrt special graphics characters 


0 
1aCL$V_BRDCST 
1acL$V~CMD 
1aCL$V~ERROR 
1aCL$V~SCROLL 


used Line numbers. 
2 
HEADER_START+5 
for CURRENT REPORT. 


0 
TaRPTSV_CLSTR 


; Control_N or SO (shift-out) 
; Control_O or SI (shift-in) 


Lower-right corner. 
Upper-right corner. 
Upper-left corner. 

Lower-left corner. 
Horizont lines 
et al Line - Scan 5. 


RY he fogte 
Bottom ''T’’, 
TOP ‘'T''. 


: Vertical bar. 


Define masks and bit fields for the type of information currently output 
on the two command input Lines. 


Broadcast message. 
Command input. 
Error message. 
Scroll message. 


and is five Lines long. 


; Set for cluster report, clear for 


local report. 


Page dy | 


3 Disploy header starts at Line two. 


nN 3 


SHWCLSTR Show Cluster Utilit 15-SEP-1984 52:08 VAX/VMS Macro v04-00 P 
vO4=000 Definitions. : -$Eb=198e 98:30:01 ECkiUte.seeagHuecste.mar:1 “2% 
446 ; 
3 if : Define ASCIC strings used to identify device descriptor blocks. 
449 ° 
4141500 5 450 PAAC = *X4141 3 ‘'PAA". 
SSHEREE $3880 pa i 
33 i 
909 439 3 To add a new class. 
B88 239 : 1) Define the ghase mask and field bits. 
00 458 ; §} Add the ascii class name @CLASS_NAMES 
0000 459; ) Add a longword to the TITLE_LEN_ARRAY 
0000 460 ; 4) Add field definitions preceeding them with a 
0000 461 ; CLASS = class_mask statement. 
0000 re 3 5) Increase NUM_CLASSES by 1. 
0000 463 ; 
0000 465 
949 £88 ; To add a new data structure for display by DISPLAY_FIELD. 
$000 468 ; 1) Add the new prefix to SYM_PRFX. 
0000 $6? 3 2) Add a buffer for the new structure (fixed Length) or 
0000 470; descriptors for a variable buffer. 
0000 471; 3) Modify the SNAPSHOT routine to capture the new structure. 
4 or¢ ; 4) Add a new GET_DATA call frame index. 
B83 are 
00000009 $509 475 NUM_CLASSES = G 3; Nine basic class types. 
B33 of 
$609 478 ; Masks for controlling display of classes. 
0000 480° 
00000000 0000 481 CLS$V_CLUB = 0 ; Cluster class. 
0000001 000 4 § CLS$V_SYS = 1 ; Systems class. 
Bho RCS 00 483 CLS$V_CSB = ¢ ; Members class. 
ities 00 484 CLSS$V_CIR = ; Circuits class. 
0000004 000 485 CLS$V_CON = 4 ; Connections class. 
0000005 0000 4 $ CLSS$V_CNT = 5 ; Counters class. 
st Bh 487 CLS$V_CRD = § ; Credits class. 
0 0 0 488 CLSSV_LPRT = i; Local ports class. 
it 3 4 et May = 8 ; Error close, 

38 490 CLSSV_OPEN CIR = ; Circuits in the open state. 
000000A 491 CLS$V“NOOPEN_CIR= 10 ; Circuits in states other than open. 
One 0 £36 CLS$V“OPEN_CON = 11 ; Connections in the open state. 
000000C : tb CLS$V—NOOPEN_CON= 12 ; Connections in states other than open. 

495 ; 
£36 3; Types of systems. Must match HW_TYPE_TABLE. 
498 * 
10 38 CLS8V.7 SYS = 16 ; 750 systems. 
11 CLS$V_780_SYS = 1 ; 780 systems. 
¢ CL Ssv a! ~oYS = 18 ; 785 systems. 
000001 2 CLS$V_790"SYS = 19 ; 790 systems. 
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C 4 
Show Cluster Utilit 15-SEP-19 2:08 VAX/VMS Macro v04-00 P 1 
definitions. 7 arSee= 18s 33:32:89 HOMIURE SaeSSuucrsse.man:1 28 ff, 
$0 CLSSM_ALL_CIR = siete ae con 5 we -Qpeh CIREUETS 
i «Open 
00000608 6g ELSSM-NOOPEN. CiR> i IIINon-open CIRCUITS 
4; 
66 : Masks for all types of connections. 
6 oO 
4 a 44 09 CLSSM_OPEN CON = 1aCLS$V_OPEN_CON 3; Open CONNECTIONS 
00100 4 CLSSM_NOOPEN_CON= 1aCLS$v_ “NOOPEN. CON 3 Non-open CONNECTIONS 
; 71 CLSSM_ALL_CON = <CLSSM_CON! ; ALL types of CONNECTIONS.. 
7 CLS$M_OPEN “CON! = 3 «+-Open CONNECTIONS 
00001810 oY y CLS$M_NOOPEN_CON> 3 «.-Non=open CONNECTIONS 
00 75 ; 
000 6 ; Define the Longword indices into the GET_DATA call frame. 
000 7 
00000001 0000 79 CLUB_IN = 1 
a4 4 64 00 80 $B_IN = ¢ 
0000000 00 1 CSB_IN = 
00000004 00 § PB_IN = 4 
00000005 00 CDT_IN = 5 
BOO 0008 000 84 PDT_IN = 6 
0000000 00 85 MB_IN = 7 
000 586 
000 ee2 ; 
000 88 ; Masks for event flags. 
0000 589; 
44 239 : 
00000001 0000 91 EVFSV_TIM_FLAG = 1 ; Refresh timer expired. 
00000002 44 238 EVFSV_AST_FLAG = 2 3 AST delivery. 
90000002 0900 354 EVFSM_TIM_FLAG = 1aEVFSV_TIM_FLAG 
0000004 0000 595 EVFSMTAST“FLAG = 1aE VF $VZAST_FLAG 
000 238 
009 9 : 
0C0 98 ; Miscellaneous flags. 
83 ae 
00000000 00 601 MFSV_INIT_FLAG = 0 : Initialization we progress. 
se 0 oo MFSV-EXIT-FLAG = 1 ; User requested e 
2 ° ° ? MF SV~ INVERSE = 2 : Field is to be Sosleeed in inverse 
00000002 9 6 5 MFSV_RIP = 3 : Indicates that a refresh is in 
3 progres 
00000004 00 607 MFSV_CONT = 4 3 shdieates’ that the display is to be 
O88 3 updated continuous Y: 
00000005 609 MFSV_CYCLE = 5 ; Indicates that the display is to be 
919 3 cyccved every other update. 
00060006 : MFSV_IN_OPEN = 6 s ingicates that a command procedure 
$ e is open. 
00000007 18 MFSV_NEW_CHAR = 7 : Indicates pene characteristics 
614 ; have been mo cs 
0000U.98 ; 615 MFSV_SCROLL = 8 t Indicates that the screen has been 
00 616 ; scrolled. 


ae YF 


dD 4 
SHUCLSTR ster Utilit 15-SEP-1984 23:52: AX/VMS Macro V04-00 Pa 
04 bofinitions, 4 arSEEmI8Rs 83:38:08 LOMIUTS eaeseuucr ste .mar:1 8 
00000009 +4 MFSV_VALID_MSG = 9 : enereetes, vei te ascii string found in 
3 message buf 
0000000A i$ MFSV_CR_FOUND = 10 : Indicates that a valid ascii string 
y i: followed by a carriage return has 
? ; been found in the message buffer. 
6 § MFSM_INIT_FLAG = 1amF$V_INIT_FLAG 
624 MFSM_EXIT-FLAG = 1amMFSV_EXIT_FLAG 
625 MFSM_INVERSE 5 1am $V_ INVERSE 
6 § MF SM_RIP = 1amMFSV_RIP 
627 MFSM_CONT = 1aMF $V_CONT 
: ° 3 MF SM-CYCLE = 1amFSv_CYCLE 
MFSM_IN_OPE = 1amMF$V_IN_OPEN 
00 6350 MFSM_NEO CHAR = 1amF $V_NEQ_CHAR 
00010 00 631 MFSM~ ~SEROL L = 1amF $V~SCROLL 
00000200 0000 6 § MFSM-VALID_MSG = 1aMF $V_VALID_MSG 
00000400 0000 6335 MFSM-CR_FOUND = 1amF $V~CR_FOOND 
000 635 ; 
; Scro ags. 
0000 6 Scroll fl 
$33 fn 
00000000 4443 63s SCRSV_MORE_RT = 0 ; Data has truncated off right of 
3: screen. 
00000001 0000 641 SCRSV_MORE_LFT = 1 3 Display has been scrolled left. 
0000000 000 $66 SCRSV_MORE_UP = ¢ ; Display has been scrolled up. 
0000000 000 643 SCRSV_MORE-DWN = ; Data has been truncated off the 
0000 644 ; bottom of the screen. 
00000004 $4 oe? SCRSV_MORE = 4 ; Any ‘‘more’’ flag has been set. 
00000001 44 gS SCRSM_MORE_R = 1aSCRSV_MORE_R 
00000002 0000 648 SCRSM_MORE “li = 1SSCRSV-MORELFT 
00000004 4 649 SCRSM_MORE_UP = 1aSCR$V_MORE_UP 
sia 444 00 650 SCRSM_ more ~DUN = 1aSCRSV_MORE_DWN 
0000001 000 651 SCRSM = 1aSCRSV_MORE 
0000 638 
00000010 0000 654 MAX_ID = 16 ; Maximum number of 5 stem that can be 
000 655 : removed from the display ,yorne 
B88 $26 : REMOVE SYSTEMS ID=cyseem” i 
00000002 000 657 MAXPDT = 2 3; Maximum number of port descriptor 
000 $38 3; tables per system. 
00000003 00 659 QUE_LIMIT = 3 ; Maximum number of entries to check 
660 : _in an interlocked queue. 
00000012 661 DEF _CONNCNT = 18 : Default value for the SYSGEN 
8000 666 3 parameter SCSCONNCNT. 
0000 664 -SBTTL Ascii strings. 


such 
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Ascii str 


0000 


Oooo 


00 


49 4E 49 2€ 
00000004 


56 52 45 54 4E 49 eptetildis +x i 


54 55 50 54 55 4F 000000535°010E0000° 


47 GE 49 44 4E 45 00000061°010E0000° 
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4E 4E 49 47 45 42 eoeoceer'? 
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20 20 20 09 09 09 00000080°010E0000° 
20 20 20 20 65 72 6F 4D 20 20 


ONIN NNO 


3& 


09 09 09 09 09 09 0009 *010E0000° 009 
$8 $8 0 20 72 OF 4D 09 9 
0 20 5€ OOODD0AF*010E0000" O0A 


Mmro~wmnhnoe 


td 


20 20 76 000000BA'010E0000' 


er Utility 
ngs. 


AX/VMS Macro v04-00 


ro VO Page 
CLIUTL.SRCISHWCLSTR.MAR; 1 


R=SEb=1986 93:34:01 
66 .PSECT RODATA,RD,NOWRT ,NOEXE 


6 
o88 TIME SOURCE: 
BYTE 0 


674 
675 DEF _EXT: ; Default file extention for 
67 ASCII /.INI/ initialization if SHOW _CLUSTERSINIT 


7 : is defined. 
4 DEF _EXT_LEN =.-DEF _EXT ; Length of string. 


980 DEF _NAME2: : Default command 
681 ASCII /SHOW_CLUSTERSINIT: .COM/; 


oss DEF _NAME2_LEN =.=-DEF _NAME2 
684 


rocedures filename 
if SHOW_CLUSTERSINIT is defined. 


; Length of string. 
eH : Names of qualifiers to the DCL level SHOW command. 
687 ° 


688 REPORT_QUAL: : Qualifier for specifying report name. 
689 eASCID 


tts /REPORT/ 
691 CONTINUOUS QUAL: ; Qualifier for specifying continuous 
692 -ASCID /CONTINUOUS/ ; update display. 
693 
694 INTERVAL_QUAL: ; Qualifier for specifying interval 
695 eASCID /INTERVAL/ 3; between display updates. 
696 
697 OUTPUT_QUAL: ; Qualifier for specifying output file. 
$38 eASCID /OUTPUT/ 3 
00 ENDING_QUAL: : Qualifier for specifying ending time. 
44 ASCID /ENDING/ 3 
703 BEGIN_QUAL: ; Qualitier for specifying starting 
704 eASCID /BEGINNING/ 3 otime. 
g 5 
i 3 Ascii strings used to make up the scrolling signals. 
7 e 
MORE _DSCR: 
-ASCID More / 
MORE_TABS: ; Extra tabs for 132 column mode. 
eASCID / More 


MORE_UP:.ASCID /* / : Scroll down allowed. 


MORE ~DWN: 
ASCID /v / 


; Scroll up allowed. 


as 


SHWCLSTR Show Cluster Utilit 15SEP-1984 23:52:08 VAX/VMS Macro v04-00 p 
vO4 hecll tris. areeer IRs $Si32i89 PARLWTS Bacto VOe sO ans) a0 


SN 
ou 


D 17 MORE_LFT: 
D 20 3C 4 00C5°O10E : 18 eASCID /<-=/ ; Scroll left allowed. 
3 p D 000" 10€ C 19 MORE_RT:.ASCID /-=>/ : Scroll right allowed. 
0 008‘ 010E P + 5 Y NO_MORE:.ASCID / / 
Be 
DE 724 ; Logical names. 
Be 
ODE 727 IN_DEV_NAME: 3 t devi ° 
4E 49 24 53 59 53 000000E6"910E9000" DODE 728 ~~ .ASCID /SYSSINPUT/ Tyengcactiese ite Somee 
he OFF 729 
OEF 746 OUT_DEV_NAME : ; Output devi e 
55 4F 24 53 59 53 000000F7"°010E0000"° OOEF 731 =~  ~.ASCID /SYSSOUTPUT/ J petnetend segeniongh xt 
54 55 50 54 10! , 
101 733 NULL_DEV_NAME: 3 ON i e 
3A 4¢ 4E 00000109°010E0000" 9101 : EE APEWAASCID /NL:/ Sage meee A amy 
010C 736 LIBRARY_NAME: 3 N f help Lib f int ti 
45 48 24 53 59 53 00000114"910E9000" O10¢ 7 ; “TASCID /SYSSHELP:SHWCLHELP.HLB/? parser. 
50 4C 45 48 4C 43 57 48 23 i; 23 sf gi38 
012A 738 INIT_NAME: ; Start initializati fil a 
43 SF 57 GF 48 53 00000132°010E0000° 012A 739. ~~~. ASCID /SHOW.CLUSTERSINIT/ sithenins? ssh anes Gone? ence 
54 49 GE 49 26 52 45 54 53 55 4C 01 
gee Te 
143 24g : Terminal control strings. 
0143 pea 
Bie 745 DCRT_NOATR_DSCR: ; DECcrt control oer tos to turn 
6D 5B 1B 00000148'°010E0000° rt ms ASCID <ESC>/Em/ : off character attributes. 
Olee oe DCRT_NARROW_DSCR: ; Escape sequence used to place DECcrt 
6C 33 3F 5B 1B 00000156'010E0000° O14E 74 ASTID /C23L/ : _in 80 column mode. 
3128 750 DCRT_WIDE_DSCR: 3 Escape sequence used to place DECcrt 
68 33 3F 5B 1B 00000163'010E0000' 3128 3) eASCID = /C23h/ : in 132 column mode. 
016 73g GRAPHICS_DSGNTR: ; Escape sequence designate special 
30 29 1B 00000170°010E0000° gig 754 eASCID /)0/ : graphics and Line drawing character 
gif P32 3 set into G1 area for DECcrt. 
17 39 DELM_DSCR: ; Control string te output a 
OF 78 OE 00000178" 9) 9 0000" 17 £38 eASCID /x/ 3; vertical bar on a DECcrt. 
0000000 Ve P23 DELM_DSCR_LEN = 3 
17E 761 INVRS_DSCR: : Escape sequence used to turn on 
6D 37 5B 1B 00000186'010E0000' +43 166 eASCID /C7m/ ; inverse video attribute on a DECcrt. 
ie 
18A 766 : Misc messages and ascii strings. 
18A 6767 ; 
18A 768 


ssh 


We & 26 92 & 78 ROB EE S308 
206 00 6S BF SHOU am 
65 74 73 7 73 20 000901¢4"010E0000" 


65 64 6F 6E 20 20 00000107' 01069090" 
49 4 7°010E0000" 
b Bg S553 §3 GeOga'be eaMeres 
0 73 & 20 6220 1g 91069009" 
We 63 73 oetg0 Pe aa ee ae 


6E 61 6D 6D 6F 43 mf 20 SE 8D oe 
OO0A 


75 6g 
70 6 
2€ 65 


75 Oc ¢ 
70 69 


52 45 54 55 

53 4D 45 54 

53 52 45 42 

53 54 49 55 43 

53 4E 4F 49 54 43 45 4E 
53 52 45 54 4E 

53 54 49 44 

53 54 52 4F 50 SF 4C 41 
53 52 4F 


55 4C 43 
53 59 53 
4D 45 4D 
52 49 43 
4E 4F 43 
55 4F 43 
45 52 43 
43 4F 4C 
52 52 45 


o7 


0900 
at 


SSSSLSSSE 


Show Clus 
Ascii str 


18, 
4 
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et A tb a a td a 


WOOO G9 C9 SII NOD ITI EE —=$OOWMNIIVIOOOW@OO>r>r> 
SSS FRB Se SSSA Wind DODO OH HOO GoomaMroe RRO WR POOLAOOS 


ngs. 


ring. 


Sooooooo 
AunFwwn—o 
Sete ees 
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er Utility 15-SEP-19 
46-SEP-1984 
769 CLUSTER_MSG: 
770 eASCID /View of Cluster from/ 
44 LOCAL _MSG: 
72 -ASCID /Local ports on/ 
773 MSG1_DSCR: 
774 -ASCID / system ID / 
775 MSG2_DSCR: 
776 -ASCID / node: / 
777 BUFF _MSG: 
778 eASCID / Cl buffer descriptors 
779 FREE_BUFF _MSG: 
780 .ASCID / Cl buffer descriptors 
el 
782 PROMPT: .ASCID /Command > / 
? ; PROMPT_LEN = .-PROMPT-8 
785 
7 $ 3 
i 3; Ascii strings for class headers. 
9 o 
790 CLASS_NAMES: 
791 eASCIC /CLUSTER/ 
792 -ASCIC /SYSTEMS/ 
793 -ASCIC /MEMBERS/ 
794 eASCIC /CIRCUITS/ 
795 eASCIC /CONNECTIONS/ 
796 -ASCIC /COUNTERS/ 
797 eASCIC /CREDITS/ 
798 eASCIC /LOCAL_PORTS/ 
799 eASCIC /ERRORS/ 


Be $3:24:01 


AX/VMS 


in use./ 


free./ 


Command input prompt string. 


Cluster (CLUB) class. 


Systems class. 
Members class. 
Circuits class. 
Connections class. 
Counters class. 
Credits class. 
Local-ports class. 
Errors class. 


. aecit strings used by display routines to convert an output value to an ascii 
$ 


Macro v04-00 
CLIUTL.SRCISHW 


Rae Se ee eee 


vou000" eli striae PaSE 1986 33:30:05 LOTUTE SRESSuvecste.mar:1 "2% UZ, 

; 7 : Strings wees routine DISPLAY CABLE_STATUS to Giseley status of the paths 
: $ ; and cable (PBS$B_CBL_STS, PBSB_PO_STS, and PB$B_P1_STS). 
f if CB_STAT_STRG: 

20 20 2D 20 20 00° ¢ . ee * ASCIC - / ; Paths A and B are bad. 

20 20 2D 20 41 00° 4 813 eASCIC /A = / ; Path A is good. 

42 20 2D 20 20 00° 814 -ASCIC / = B/ ; Path B is good. 

42 20 2D 20 41 00° 815 eASCIC /A = B/ ; Paths A and B are good. 

44 45 53 53 4F 52 43 :" a 816 «ASCIC /CROSSED/ ; Cables are crossed. 
00000007 AC CB_STAT_STRNG_LEN = 7 3; Maximum possible string Length. 


Strings used by DISPLAY_LOOPBACK_STATUS te display path loopback status 
(PDTSE PO LBSTS and PDT$B_P1_LBSTS). . 


LB_STAT_STRG: 
sASCIC /A 


>>> > 
COOOoe 
Rororonorononun 


NOUSWN—OOOnN 


42 20 2D 20 41 09" B/ ; Loopback tests passed on paths A and 


AC 
8 8 3 3. 
20 20 2D 20 41 99" 3 $55 eASCIC /A- / 3 Loopback tests passed on path A. 
42 20 2D 20 20 09° : 830 eASCIC / = B/ 3; Loopback tests passed on path B. 
20 20 2D 20 20 09° : 831 ACI # = ; Loopback tests failed on paths A and 
C ; 6. 
20 41 2F 4E 20 69" : $35 -ASCIC @N/A@ 3; Loopback testing is not being done. 
C 
LB_STAT_STRG_LEN = 5 3; Maximum possible string length. 


4 

; 

8; Strings used by DISPLAY_RPORT_TYP to display the remote port type 
0 ; (PBSL_RPORT_TYP). 


AEAQOOOO 
>>> > Pr Pr rrr eemmno 


CA RPORT_TYP_STRNG: 
30 38 37 49 43 9" +f eASCIC /C1780/ ; Remote port is a C1780... 
30 35 37 49 43 00° . 844 eASCIC /C€1750/ 5 oon CIVR. 
30 35 43 53 48 00° 0206 845 eASCIC /HWSC5O/ 3 coo USCS. 
. be 846 eASCIC // 3 «+. Reserved. 
41 50 49 4C 4B 00° DD 847 eASCIC = /KLIPA/ zc coe MV. 


54 4E 49 43 00" O2E 848 eASCIC /CINT/ 3... Cl node tester. 


——— 


Show Clus 
Ascii str 


49 4E 4 
48 54 53 53 41 50 


rororor 
mmemen 
Doow 


00000006 


30 38 37 49 43 03 
30 35 37 49 43 2 
0 


00000005 


45 4E 49 4C 46 46 4F 00° 


45 4E 49 4C GE 4F 00° 
06 
| 


00000007 


DODO OOO Fa 2575 0 8 FF FF 8 Fe Fe ee ee ee ee 


a OOOO 


CDOCOCCOCCOCBOWUMOO SLOSS SSS SSS FF FO OMMMM Mm mM mmm rn CoGorgnrongpgngnynynynynvw® 


4E 45 50 4F :" 
4C 49 41 46 SF 43 56 " 


44 45 53 4F 4C 43 00° 
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00000007 
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I 4 
er Utilit % -S AX/VMS v04-00 Pa 
ngs. . 4-5$ sats 33 3¢: g8 Yeiutt. sk SRE HWCLSTR.MAR;1 ” 
849 eASCIC /NI/ 8 coe UH. 
850 ASCIC /PASSTH/ i +e. Pass through mode. 


RPORT_TYP_STRNG_LEN = 6 ; Maximum possible string Length. 


; Strings used by DISPLAY_PORT_TYPE to display the port type (UCBSB_DEVTYPE). 
DEV_TYP_STRNG: 


eASCIC § /C€1780/ 
eASCIC = /C1750/ 


; Port is a C1780. 
; Port is a C1750. 


6¢ DEV_TYP_STRNG_LEN = 5 ; Maximum possible string length. 


64 ; 
i 3; Strings used by DISPLAY_PORT_STATUS to display the port status (UCB$W_STS). 


6 
68 PORT_STATUS_STRNG: 


70 eASCIC /OFFLINE/ ; Port is offline. 
871 eASCIC /ONLINE/ ; Port is online. 

7 

73 PORT_STATUS_STRNG_LEN = 7 ; Maximum possible string Length. 
75 ; 

76 ; Strings yeed by DISPLAY_CIR_STATE to display the state of a circuit 

77 ; (PBSW_STATE). 

78 ; 

79 

80 PB_STATE_STRNG: 

81 ~ASCIC /CLOSED/ ; Circuit is in the closed state. 
882 eASCIC /ST_SENT/ ; Start sent. 
883 eASCIC /ST_REC/ 3; Start received. 
884 -ASCIC /OPEN/ ; Circuit is in the open state. 
885 eASCIC /VC_FAIL/ ; Virtual circuit failure in progress. 


PB_STATE_STRNG_LEN = 7 Maximum possible string length. 


by DISPLAY_RSTATE to display the state of the remote port 


WOOOMWMCC 


Wr OC COno 


~~ 


J 4 


Sass" ay Aa VERA SESE HEUTE SRESSMMLETR mann PP 1 
54 49 4E 49 4E 55 00° He eae are tC’ /UNINIT/ ; Remote port is uninitialized. 
54 49 4E 49 GE 55 SF 4D ¥. f 896 eASCIC = /M_UNINIT/ ; Remote port is in maintenance mode 
42 41 53 49 46 00° ‘3 Hf SASCIC /DISAB/ i pemote port 1s disabled. 
42 41 53 49 44 SF 4D H rb 899 ~ASCIC /M_DISAB/ ; Remote port is in maintenance mode 
42 41 4E 45 00° iE 30 eASCIC /ENAB/ ; aeeses enrk tk cached 
be 4 ’ 
42 41 4E 45 SF 4D 30° i 902 eASCIC /M_ENAB/ ; Remote port is in maintenance mode 
2A 307 ; and is enabled. 
00000008 2h +44 PB_RSTATE_STRNG_LEN = 8 ; Maximum possible string length. 
0354 308 tebrse: used by DISPLAY_CON_STATE to display the connection state 
O34 +44 ; (CDTSW_STATE). 
0 aA $13 COT_STATE_STRNG: 
44 45 53 4F 4C 43 90" 35h 91 eASCIC /CLOSED/ ; Connection is in the closed state. 
4E 45 54 53 49 4C 00° Q 914 eASCIC /LISTEN/ ; Connection is in the Listen state. 
4E 45 50 4F 00° 368 915 eASCIC /OPEN/ ; Connection is in the open state. 
4B 43 41 SF 43 53 49 44 00° 036D 916 eASCIC /DISC_ACK/ ; Disconnect acknowledged. 
43 45 52 SF 43 53 49 44 00' $396 917 eASCIC /DISC_REC/ 3 Disconnect request received. 
54 4E 45 53 SF 43 53 49 44 a8. NH 918 eASCIC /DISC_SENT/ ; Disconnect sent. 
48 43 54 4D SF 43 53 49 44 +f 8 919 eASCIC /DISC_MTCH/ ; Disconnect match. 
54 4E 45 53 SF 4E 4F 43 00° 393 920 eASCIC /CON_SENT/ ; Connect request sent. 
4B 43 41 SF 4E 4F 43 00° 43 921 eASCIC /CON_ACK/ ; Connect request sent & acknowledged. 
43 45 52 SF GE 4F 43 re 922 eASCIC /CON_REC/ ; Connect request received. 
54 4E 45 53 SF 50 43 43 41 00° a 923 eASCIC /ACCP_SENT/ ; Accept request sent. 
54 4E 45 53 SF 4A 45 52 00° 6 924 eASCIC /REJ_SENT/ ; Reject sent. 
4C 49 41 46 SF 43 56 : r 925 eASCIC /VC_FAIL/ ; Virtual circuit failed. 
00000009 cf ; 3° DISPLAY_CON_STATE_LEN = 9 ; Maximum possible string length. 
cf ; ? i st DTS BLESTATE tf SHSTATE to display the SCS send blocked state 


—————- 
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44 4E 45 

44 4E 45 50 
44 GE 45 

44 4E 45 50 
44 4E 

44 4E 45 


ua 
54 43 45 4E 


54 43 

54 

54 43 45 4E 4E 
54 50 45 
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52 41 45 4C 43 00° 
50 SF 4E 4F 43 00° 
SF 50 43 43 41 00° 
50 SF 4A 45 52 00° 
SF 43 53 49 44 
45 50 SF 52 43 ! 
50 SF 52 43 44 . 


00000009 


53 45 59 60" 
4F 4E +f 
0 
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00000003 
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4E 45 50 4F 99° 

45 53 4F 4C 43 
4E 4F 43 45 52 
57 45 4E 

45 4E 4E 4F 43 
50 45 43 43 41 
4F 43 53 49 44 
43 43 41 45 52 
54 49 41 57 


NSSSSSSSSSS955 


SoMmoroo NOuUo«soe 


Orne logovw 
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936 
937 
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CDT_BLKSTATE _STRNG: 
eASCIC = /CLEAR/ 


/CON_PEND/ 
/ACCP_PEND/ 
/REJ_PEND/ 
/DISC_PEND/ 
/CR_PEND/ 
/DCR_PEND/ 


-ASCIC 
eASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 


DISPLAY_SCS_STATE_LEN = 9 


Be 33:30:01 
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Not blocked. 
Waiting to send connection request. 


Waiting to send accept request. 


Waiting to send reject request. 


Waiting to send disconnect request. 


Waiting to send credit. 
Waiting to send credit in 
preparation for disconnect. 


Maximum possible string length. 


: Strings used to display quorum file states. 


YES_NO_STRING: 
-ASCIC /YES/ 
.ASCIC /NO/ 


YES_NO_STRNG_LEN = 3 


; Maximum Length of string. 


: sec iogs used by DISPLAY_CSB_STATE to display the cluster system block state 
; (CSBSB_STATE). 


CSB_STATE_STRNG: 
-ASCIC /OPEN/ 


/CLOSED/ 
/RECONNECT/ 
/NEW/ 
/CONNECT/ 
/ACCEPT/ 
/DISCONNECT/ 
/REACCEPT/ 
/WALT/ 


-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 


; Open. 

; Closed. 

Attempting to reconnect. 

; New block. 

Attempting initial connection. 


Accepting initial connection. 


; Disconnect in progress. 
3; Accepting reconnect request. 
Time-out in progress. 


saya "ERECIS SALA PAMUTE TRGB ss 
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Ascii strings. 


4 0448 
44 41 45 44 06° ret 972 eASCIC /DEAD/ ; No connection possible. 
4 73 
0000000A : CSB_STATE_STRNG_LEN = 10 ; Maximum possible length of string. 
4 76; 
4 379 ; Strings used by DISPLAY_CSB_STATUS to display the status of the node in the 
45 3f8 ; cluster (CSBSL_STATUS). 
45 4 3 
rk a CSB_STATUS_STRNG 
57 45 4E 69" ‘3 3B r SASCIC = /NEW/ 3; New system in cluster. 
57 45 GE SF 4B 52 42 09° $28 983 eASCIC /BRK_NEW/ ; New system - break in connection. 
52 45 42 4D 45 4D ny” Die 984 ASCIC /MEMBER/ ; System is a member of the cluster. 
4D 45 4D 5F 4B 52 42 09° acs 985 eASCIC /BRK_MEM/ ; Member - break in connection. 
4E 4F 4E 69" rh 4 9M ASCIC /NON/ 3; System is not a member of the cluster. 
4E 4F GE SF 4B 52 42 Bo. beri 987 »ASCIC /BRK_NON/ 3 Non-member - break in connection. 
44 45 56 4F 4D 45 52 +e et 988 ASCIC /REMOVED/ : System is removed from the cluster. 
4D 45 52 SF 4B 52 42 89. ett 989 -ASCIC /BRK_REM/ ; Removed system - break in connection. 
0489 990 
00000007 et 34 33) CS8_STATUS_STRNG_LEN = 7 ; Maximum possible string length. 
0489 993; 
0489 994 ; Symbol prefix oprings used by DISPLAY_FIELD to determine which SCS data 
Beas 444 3; structure contains the data. Prefixes must be less than 4 characters. 
0489 997 ° 
0489 998 SYM_PRFX: 
42 55 4C 43 90" ot 34 999 eASCIC /CLUB/ ; Prefix for club offsets. 
24 42 53 ° rt 1000 -ASCIC /SBS/ 3; Prefix for system block offsets. 
24 42 53 43 ay" i 1001 eASCIC /CSBS/ 3; Prefix for cluster system block 
49 1008 :; _offsets. 
24 42 50 08 44 1 ASCIC /PBS/ ; Prefix for path block offsets. 
24 54 44 43 oP rhe 1004 CDT_PFX:.ASCIC /CDT$/ ; Prefix for connection descriptor 
4A0 1005 ; table offsets. 
24 54 44 50 99" 7 1006 PDT_PFX:.ASCIC /PDTS$/ ; Prefix for port descriptor table 
4A5 1007 ; offsets. 
24 42 4D 60" " 1008 ASCIC /MBS/ 3; Prefix for miscellaneous buffer 
4A9 1009 ; offsets. 
4A9 1 19 : 2 
00000007 04A9 1011 PFX_LIM = 7 ; Number of valid prefixes. 
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M 
0,3,5,8,10,13,15,17,20 


BYTE 
; Table used to convert SBS$L_HW_TYPE into a bit value to determine if 


; Table used to convert SCS data size in byte 
‘ columns needed to display the data (FD$B 


; the type of system should 


<q<aq<a<acactaacac 
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14 11 OF OD OA 08 05 03 00 


TR 


systems. 
ystems. 
C60 systems. 


systems. 
C50 s 


ystems. 
systems. 


3; 750 s 
3; 780 

; 785 

3; 790 

3; HS 

3; HS 


» LONG 
«LONG 
LONG 


OO ~000 0000.0 


PE_TABLE>/4 


; Table used for Hex to decimal conversion. 


SoOoOooooooooo 
Soooooooooooo 
SooQooooooooooo 


Saoococoaoaoaooaoacoacoaacaacsas 
<«<aqdeddede eee eee eects 
2225325223323 2325325235323232325>2>2>23>—>—53 
osooooco0coc0c0cc0c0coc000000 9 
. soe eee#eesee#envee ee ee#eeeee @ 
a 
<< 
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i 
ha 


COOOOOCOOOOCOGOOOSOOGOGOOOSGOOOSSGSSSSLS SOSSSCSCOSSOSOOSOOSSGOOOOOSOOSOOSOoSoOo 


i OOO OC re 


APOROOOOOO cucucucucucucucucucucucucueunn 0 fwvOd daca Pa eter tae A at GD ath a pea ae < 

DMODODLPVVVOGVVVw 
eT LLL Lee eh RAAT AL ALALALALALALALALALAL AL Al 
COOCooooococooo 


oS 
~N DBWOnOS 
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.-DEC_TAB/8 


00000014 
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56A 

56A 

56A 
00003333°00000000' 234 
057 

057 

057 

057 

B25 

44 57 
0000 0574 
00008000 0576 
00000000 057A 
0000000C 057E 
057E 

057E 

057€ 

057E 

057€ 

057€ 

0004 057E 
0004 0580 
boas 

00002208" 058 
00000000 0586 
058A 

0004 058A 
0006 05 : 
0000220C" 0 5 
00000000 $ 
sk 88 
OOA ; 

0000 A 
0000 : 
4 

A 
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DEC_TAB_END: 


Starting and onding addresses of pages to be locked in working set. 

This includes the fixed Length snapshot buffers and the snapshot routine 
iceekt It does not include the variable Length buffers which must be 
oc 


Sete Ge Sete te 


ked separately. 
SNAP_ADRS: 
ADDRESS - ; Starting and ending addresses of 
SNAP _BUF , SNAP_END 3 snapshot routine. 


: Item List for terminal Q10 function modifiers. 


TERM_LIST: 
.WO 


“WORD TRMS_MODIFIERS 
“LONG TRMSA_TM_NOEDIT 


LO 
TERM_LIST_LEN = .-TERM_LIST 


; List of parameters request by $GETDVI. 


GET_LIST: aia 
“WORD _DVI$_DEVCLASS 
“ADDRESS - 

DEVICE CLASS 


Buffer size. 
Request device class 
Buffer address. 


Buffer size. 

Request additional device dependent 
information. 

Buffer address. 


-WORD 4 
WORD DVIS_DEVDEPEND2 


-ADDRESS - 
REVDEPENDE 
- LONG 


Length not needed. 


Buffer size f 
Bequest device buffer size. 
Buffer address. 


me a a a ht a a ed ts a st td ss 
SE PT eS Se ee we SEY —T—T—-)- 1-1-1 -\-|- |---| - 1-1 -|-)}-1-.-.- |---|. - 


POROPORORURD 2 2 BQO OOOO 00000 050000000009 000000 00090909 INI NINN SINIOS 
UEWN ODO NOUE WIN @O ODN EWN SO ODNAUE WN O ODNOUEWN OO OODNOUSWN-OO 


ORD 4 
WORD DVIS_DEVBUFSIZ 
DDRESS - 


- LONG Length not needed. 

-WORD 4 ; Buffer size. 

«WORD DVIS_DEVTYPE 3 aoquest device type. 

° = ; Buffer address. 
DEVICE_TYPE : 

-LONG 0 3; Length not needed. 

«WORD 4 ; Buffer size. 

-WORD DVIS_DEVDEPEND ; Request device dependent information. 

ADDRESS - ; Buffer address. 
REVDEPEND : 

- LONG ; Length not needed. 
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10° B2 11 UFFER_SIZE 
£b886608 88 1 ° ~ LONG 5 3; Length not needed. 
00000000 7 1 -LONG 0 3; End of list. 
BE 11 
BE 11 3 
Hy 1} Z : List of parameters request by $GETJPI. 
SBE 1135 ° 
SBE 11 $ JPI_LIST: 
poe 28 11 «WORD 4 ; Buffer size. 
00° 05c0 11 : -WORD JPIS$_CURPRIV ; Request process's current privileges. 
Bee 11 oA = : Buffer address. 
00002230" 05c2 1140 CUR_PRIV ; 
00000000 bere 113) - LONG ; Length not needed. 
00000000 O5SCA 1108 -LONG 0 ; End of List. 
Bete 1144 
SCE 1145 
OSCE 1146 -SBTTL Local storage. 


€ 5 
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0000 6 1168 -PSECT RWDATA,RD,WRT,NOEXE 
00000000 ? 1 9 BUFADR: .LONG 0 ; Tomporery storage for queue buffer 
3 6 
00000100° 4 1} § BUFSIZE:.LONG MBX_BUF_LEN : Buffer size. 
1154 MSG_FRE_QUE: 3 Queue of allocated ffers. 
00000008"00000008" 0008 1159 ir GuONG MSG_FRE_QUE.MSG_FRE_QUE 8 . ‘ : . a meee? th; 
-JUT QUE: 3 Queue of broadcas t 
00000010"00000010" 091 HF .LONG MSG_OUT_QUE,MSG_OUT_QUE : output. 
1 11 SCRATCH: 3 T t i i 
00000000 b018 1160 .LONG 0 i Fate faa Oe Or hee 
OOIE 1162 
001C 1108 ; File access block for input file. Used when executing a command procedure 
Bate 1164 ; or when cogent ae Show Cluster from a file stream. The default filename 
01C 1165 ; extention is .CO 
OO1E 1163 
001C 1168 INFAB: S$FAB DNM = <.COM>,=- 
DOE 1190 a Soe 
= = 
apie 1171 tt haan 
= 
oe 
066C 1175 ~~ $NAM ESA = IN_EXP_NAME,- 3; Address to store expanded filespec. 
006C 1108 ESS = IN_EXP_NAME_LEN ; Address to store length of expanded 
Boce ie 3; filespec. 
0000011¢ Bocce 4 IMF ILE SPEC: 80 ; Buffer for filespec for procedure. 
00000050 mit 118e IN_FILE_SPEC_LEN = .-IN_FILE_SPEC : 
11C 1183 IN_EXP_ DCR: ; Descriptor for expanded filespec. 
SS0H82: $185 HB ABE BS ex aan PS Pare ese ie 
90000176 i i $ IN_EXP wie 80 = : Buffer for expanded filespec. 
00000050 it 4 1188 IN_EXP_NAME_LEN = . -IN_EXP_NAME : 
174 1189 
Be 
174 119¢ : Output file access block. Used for /OUTPUT= or when SYSSOUTPUT has been 
0174 1184 : defined to be a file. The default filename is SHWCLSTR.DAT. 
174 1195 ° 
Bite 1138 OUTFAB: SFAB V3 = tee -DAT>,=- 
= - 
0174 HB FNA = OUT_FILE_SPEC, 
174 #11 FNS = OUT"FILE- SPEC “LEN, - 
174 «1 FOP = NAM,- 
O14 1 = QUTNAM_BLOCK 
1¢4 «1 
Bite 1 
1¢4 «1 


Cooooo 
fwn—o 
z 
> 
= 


OUTNAM_BLOCK: : 
SNAM ESA = OUT_EXP_NAME,- ; Address to store expanded filespec. 
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Suns. 38 
v4 
SONNE. 
Semns r 
cc 
He 
se 
oecc 
cc 
ie 
af 
00000000 0 10 
00000318° 8 1 
0000039C 0 18 
00000084 Bao¢ 
H 
Be 
039¢ 
00000040 0340 
A 
000003A4" 3A 
Be? 
000003E4 Bane 
O3E4 
00 Oeee 
a 
0000 es 
E 
0000 E7 
E9 
0000 03€9 
EB 
0000 
00000000 03ED 
i 
00000000 4 
00000000 F3 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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OUT_FILE_SPEC: 


«BLK 80 
OUT_FILE_SPEC_LEN = .-OUT_FILE_SPEC 


OUT_EXP_DSCR: 
. LONG 
“LONG 
OUT_EXP_NAME : 


; 80 
OUT_EXP_NAME_LEN = . -OUT_EXP_NAME 


15-SEP-1984 
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ESS = OUT_EXP_NAME_LEN ; 


80 
OUT_EXP_NAME 
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Address to store length of expanded 
filespec. 


; Buffer for filespec for procedure. 


Descriptor for expanded filespec. 


Buffer for expanded filespec. 


; Establish a record access block. Used when inputing from a procedure or 


; when executing from a file stream. 


INRAB: $RAB 


REC_DSCR: 

- LONG 
- LONG 
REC_BUFF: 


0 
REC_BUFF 


«BL 132 
REC_SIZE = .-REC_BUFF 


TRAN_DSCR: 
- LON 


G 64 
-ADDRESS - 


TRAN_BUF : 
-BLKB 


BUF _COUNT: 
-BYTE 


SO _COUNT: 
CSB_COUNT: 
PB_COUNT: 
. WO 
CDT_COUNT: 
wo 


ORD 


VAR_BUF : .LONG 

VAR_BUF _END: 

VAR_BUF _LEN: 
. LONG 


TRAN_BUF 
64 


oo oc ©& 


Pointer to FAB. 
Record buffer. 
Record buffer size. 


Descriptor for record buffer. 


Record buffer. 


Descriptor for SHOW_CLUSTERSINIT 
translation. 


Length. 
Address of buffer. 
Buffer. 


Number of times we've allocated some 
buffer space. (2 max) 


Maximum number of entries to be stored 
in the system block buffer. 

Maximum number of entries to be stored 
in the cluster system block buffer. 
Maximum number of entries to be stored 

in the path block buffer. 
Maximum number of entries to be stored 
in the COT buffer. 


Address of variable length buffer 
returned from GET i 
End of variable buffer space. 


Length of variable buffer. 


| 


a 
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00000000 00000000 
00000000 00000000 
00000000 00000000 
00000000 00000000 


00000000 


00000000 


00000000 


00 
00 
00 


00000000 
00000000 
00000000 


F 
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SFFF 
Fae ek ak ak ee ee 
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eh a 8 a 8 st a ss 2s ss 2s 5 2 5 ts sb st tb 


ae 


5 OLD_SB_DSCR: 
OLD_CSB_DSCR: 
OLD_PB_DSCR: 
— QUA 
OLD_CDT_OSCR: 
~ QUAD 


OLD_VAR_BUF : 
. LONG 


OLD_VAR_BUF _LEN: 
- LONG 


NUM_FIELDS: 
-BYTE 
SCS_NUM_F IELDS: 


NUM_LINES: 


LON 
SCROLL LINES: 
- LONG 


DBOOOOO0 O00 0000 00 00000000 0909 0909 0909 SI NIN NIN NINN OO 
oc Ww 


WW API MODS MEM RO = OOO MOMMY — ODOd SOME NI ODO NOUR MISO 


ooo oO 


0 


OLD_VAR_BUF END: 
«LONG 0 


0 


-BY 
CLUB_NUM_FIELDS: 
-BYTE 0 


.LONG 0 
PRIOR_NUM_LINES: 


15 
4 
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4 : Descriptors for variable Length buffers 


Sete Ge Ge Ge Ge Ge Ge 


LINE_DIF is a record of the Lines in the 
because data on that Line has changed. 
- Line #8, etc. 


from previous snapshot. 


System block buffer. 

Cluster system block buffer. 
Path block buffer. 

CDT buffer. 


Address of previous buffer. 
End of previous buffer. 
Length of previous buffer. 


Number of fields to be displayed 
Used to Limit sortwseres t tag. 
Number of SCS fields to be displayed. 


Number of CLUB fields to be displayed. 


Number of Lines of data this pass. 
Number of Lines of data last pass. 


; Copy of PRIOR_NUM_LINES used to 


Limit up scrolling. 


display that need to be redrawn 
Bit 7 corresponds to Line #7, 


t LINE_DIF is used to save the time of redrawing Lines 
in the display that haven't changed since the last pass. 


PRIOR_LINE_DIF is a record of the Lines that were redrawn in the last pass. 
PRIOR_LINE DIF is used to turn off fields that have been set to inverse 
video on the previous pass. 


Differences in Lines are detected by the following routines: 


(Detects changes in data through setting of inverse 
fl y the CHECK_DIF routine) 


video 29 b 
sts change in area of the screen where a system 
anges in the number of circuits so that 


1 

: GET_DATA 

1 CHECK_POS Dete 

1 is d sploves without the data changi 
1 CHECK _NUM_PB Detects c 

1 NUM_CIRCUITS is updated. 

1 CHECK_NUM_CDT 

1 NUM_CONNECTIONS is updated. 


Detects chenges in the number of connections so that 


5) 
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Local storage. 


00000000 


00000000 


00000000 
00000000 


00000000 
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NOTES: 


LINE_DIF is cleared (actually SCROLL_DIF is copied to LINE_DIF) 
before each display is built after béing copied to PRIOR_LINE_DIF. 


LINE_DIF is used onl by GET DATA to determine if the Line has to 
be redrawn because the Line fias fields that need to be updated. 


PRIOR_LINE_DIF is used only by GET_DATA to redrawn the Line so that 
any fields set to inverse video will be cleared. 


LINE_DIF: 3; Reserve one longword to record the 
«LONG 0 i changes in data Lines on the current 
3; _pass. 
PRIOR_LINE DIF: ; Reserve one longword to save a record 
LONG 0 3 of changes in data Lines on the 


previous pass. 
: BLANKS_LINES is used to record which Lines in the display have all the fields 


; filled in with blanks. This together with PRIOR_BLANK_LINES is used to 
3; save the time of redrawing a blank Line every time the screen is updated. 


NOTES: 


BLANK_LINES is cleared before each display is build after being 
copied to PRIOR_BLANK_LINES. 


BLANK_LINES and PRIOR_BLANK_LINES are used only by the GET_BLANK 
routine to determine Tf the Line should be drawn or not. 


BLANK_LINES: ; Reserve one longword to save a record 
P ; _of the blank Lines that are output. 

PRIOR_BLANK LINES: ; Reserve one longword to save a record 
-LONG 0 : of blank Lines from previous pass. 


3 SCROLL_DIF is used to record which Lines is the display must be redrawn 
3 because the screen was hardware scrolled. When the screen is hardware 
3; scrolled one or more blank Lines are left at the top or bottom of the 

3; scrolling region and need to be filled in. 


NOTES: 


SCROLL_DIF is cleared after the display has been built and before 
any scroll commands can be issued. 


SCROLL DIF is copied to LINE_DIF before the display is built so 
that the Line are considered ‘changed’ Lines. 


SCROLL_DIF: : Indicates which Line on a DECcrt 
-LONG 0 ; must be redrawn because the screen 
; scrolled. (Because the screen is 
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as at 
ts 48 NODE NAME DSCR: 
48 137 CONG O 
4c 1 “LONG  NODE_NAME 
1381 NODE_NAME : 
1 § -BLKB 8 
1382 ; 
: ‘ ; Scrolling parameters. 
1 o 
1388 SCROLL_DELAY: 
1 -LONG 0 
TR 
1 35 V_SCROLL:.LONG 0 
60 139 
8 1g 
60 1 ae V_SCROLL_LINE: 
o : , LONG 
64 1399 CLSTR_H_SCROLL: 
64 1400 -LONG 0 
68 1401 
$8 1408 
6 1204 LOCAL_H_ SCROLL: 
68 1405 -LONG 0O 
6C 14 
fe 
6C 1409 H_SCROLL_LINE: 
§ 1619 ~LONG 0 
20 1612 TOP_CMD_LINE: 
00 , a -BYTE O 
71 1415 BOT_CMD_LINE: 
00 71 1038 -BYTE 0O 
7 141 
8 its 
72 1420 : Flags. 
tS 3059 ° 
a5 4058 FLAG_STATE: 
4 1? : -LONG 0 
76 14 § MISC_FLAGS: 
oe 1° -LONG 0 
7A 14 3 SCROLL_FLAGS: 
00 re 1? ? BYTE O 
47B 14352 LOCAL_SCROLL_FLAGS: 
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hardware scrolled). 


Reserve room for storing the node 
name of the local system. 


Number of refreshes it takes to 
scroll the bottom two Lines out of 
the scrolling region. 


Number of data Lines to be shipped by 
the GET_DATA routine before a line 
ot gete is added to the screen 

er. 

Counter for the number of Lines 

skipped by the GET_DATA routine. 


Number of field entries to be skipped 
in the cluster report by the 
FIND_ENTRY routine before success is 

returned. 


Number of field entries to be skipped 
in the local report by the 
FIND_ENTRY routine before success is 
returned. 


Counter for the number of entries 
skipped by the FIND_ENTRY routine. 


Indicates type of information Last 
output on top command Line. 


Indicates type of information last 
output on bottom command Line. 


Longword to receive event flag 
status. 


Miscellaneous flags. 

Flags to indicate which way the 
screen can be scrolled. 

Used to save a copy of the scroll 
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00 me 1$ ; -BYTE 0 :; flags for the local report. 
7C 1435 CLSTR_SCROLL_FLAGS: 3; Used to save ac of the scroll 
00 4s 1 "BYTE : : flags for the cluster report. 
7D 1438 HELP_FLAGS: 3; Flags for LBRSOUTPUT_HELP. 
00000021 7D 14 LONG HLPSM_PROMPT!HLPSM_HELP ; Run help in prompting mode. 
1 16440 3; With List of topics available. 
1 it 
1 1208 : Exit routine. 
1 qees 
1 1238 EXIT_BLK: 
00000000 1 144 «LONG 3; Forward Link. 
1768 ADDRESS - ; Exit handler address. 
F39° 144 XIT_RTN ; 
0009001 : 1039 Ore cs 3 muster of erquaents. P 
0 91° D 1488 . canes ress to receive exit status. 
91 1454 STATUS: 3 $e f MIT. 
00000000 049) 1488 LLONG 0 Loomer qed cacelieer: 
Bits 
95 1458 ; Descriptor for token. Used when a class name is parsed in case an 
95 1459 ; error occurs. 
98 jeer | 
049 1298 TKN_DSCR: 
00000000 00000000 0495 146 -QUAD 0 
49D }46s 
‘ 
0490 1466 ERR_MSGVEC: 
01 9D 146 - WORD ; Argument count. 
F oF 12o8 «WORD “XOF 3; Message flags. 
00000000 Al 1o8 -LONG QO ; Message identification. 
Boo4 AS 1470 -WORD 1 ; FAO count. 
- Gad 1273 “ADDRESS” S Eiteeee "FAO Seg t 
. - : ress 0 rgument. 
00000407" 94A9 1478 TPARSE_BLK+TPASL_TOKENCNT stg 
D4AD 1475 MSG_OUT_ADRS: 
00000000 AD 1628 -LONG 0 ; Address to receive OUTADRS 
Bl 147 3; information from $GETMSG. 
te} 1479 
0 3 
B1 1480 ; Broadcast messages. 
BI hh 
00000200 et 1 5 MAX_MSG:.LONG 512 ; Max message length. 
00000200 B 1485 BUF_QUO:.LONG 512 ; Number of system memory bytes that 
B9 14 § ; can be used to buffer messages. 
89 14 
B9 14 5 : Parsing 


Se 
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1 
B9 1492 CMD_STATUS: 3 ‘ 
90000000 489 1498 J Bis @ Status returned from LIBSTPARSE 
BD 1495 TYPEAHD_BUF: : Buff i h 
0000000 00000000 48D 1496 “QUAD 0 itn 
C5 1498 INSTRNG_LEN: iW i n 
0000 Fe a ord to receive length of input string 
ae TPARSE _BLK: 3; TPARSE parameter block. 
00 § te) 1 § «LO TPASK_COUNTO 3 Lonquere count... a 
0 ? ce 1 «LONG TPASM_ABBREV ; Allow abbreviation. 
F sit ! : -BLKL TPASK_LENGTHO-8 ; Reserve room for parameters. 
00000000 O53F 1 $ KEY_VAL:.L0NG 0 ; Longword to receive keyword value 
32 128% ; from LIBSLOOKUP_KEY. 
00000000 054 1309 KEY_OFF:.LONG 0 ; Address of longword containing the bit 
23h : 19 ; which corresponds to the keyword. 
00000000 0547 1 \¢ KEY_MSK:.LONG 0 3; Mask of the bit corresponding to the 
rt 4 ’ 1? ; keyword. 
548 1515 KEY_DSCR: ; Address of the field descriptor 
00000000 ae 1316 -LONG 0 3 corresponding to the heyuers. 
00000000 054F 1318 VALUE: .LONG 0 ; Longword to receive value for SET 
553 151 ; FIELD, SET INTERVAL, or SET SCREEN 
33 13 Y ; command. 
5 1 HELP_DSCR: 3 0 ipt for help k . 
00000000 00000000 22 13 : “— ,QUAD 0 3 ee ee eee 
326 13 ¢ 
558 1526 : Descriptors for display buffers. 
536 \ p or play buffers 
558 1 SCREEN_DSCR: ; Descriptor for SCREEN_BUF - the 
00000200" 4 1 ? LONG SCREEN _OUF LEN : buf ter for the screen package. 
00000563" Osét TO deen oe SCREEN_BUF : 
0763 36 1534 "BL 12 ; 
0200 re ! é SCACEN_BUF_LEN = .-SCREEN_BUF 3 
765 (1 CLASS_BOX_DSCR: ; Descriptor for CLASS_BOX BUF = the 
00000200" 0763 1 3 -CONG CLASS_BOX_LEN ; buf ter for Line above the classes in 
767 (1 eADDRESS - 3; the header. 
00000768" 0767 1540 CLASS_BOX_BUF 3 
. Se ' 2 CLASS_BOX pur: 12 3 
300 968 | ‘§ CLASS_BOX_LEN = .-CLASS_BOX_BUF ; 
ie 1545 FIELD_TOP_BOX_DSCR: ; Descriptor for FIELD_TOP_BOX BUF =- the 
00000200° 09 1546 -CONG™ FIELD_TOP_BOX_LEN ; Soller for the Line above thie field 
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96F 1547 ADDRESS - ; titles in the header. 
00000973° $e 154 $8 F 1ELD_TOP_BOX_BUF 3 wpe sinning 
0087 44 ! 49 FIELD_TOP grea BU i 3 
$6000800 , FIELD_TOP_BOX_LEN = .-FIELD_TOP_BOX_BUF ; 
73 («1 FIELD_BOT Box DSCR: 3; Descriptor for FIELD_BOT_BOX_BUF = th 
00000200" 0873 1554 «CONG FIELD_BOT_BOX_LEN : buffer for the Line below the field . 
77 «#1555 ADDRESS = 3 title in the header. 
00000878 0877 1 § F 1ELD_B0T_BOX_BUF 3 
Ms ' FIELD_BOT arox OUR: 3 
taittatai 078 i 33 FIELD_BOT ane LEN = .-FIELD_B0T_BOX_BUF ; 
D7B 1561 LAST_LINE_DSCR: ; Descriptor for LAST_LINE_BUF = the 
00000200° 0078 1 $6 -CONG _LAST_LINE_LEN 3 buffer for the Line folTowing the 
D7F 1 ADDRESS - ; last Line of data. 
00000083" OD7F 1564 LAST_LINE_BUF 3 
000883 ; 1386 LAST_LINE ave 2 ; 
0000200 OF ¢ LAST ir. CEN = .-LAST_LINE_BUF ; 
F8 1369 LAST_CLUB rhb _DSCR : Descriptor for LAST_CLUB_LINE_BUF - 
00000200° OF 1570 . CONG LAST _CLUB_LINE_LEN : the buffer for the Line following the 
f 1571 . ADD ; last Line of data in the CLUB 
00000F 8B° OF 87 1376 LAST _CLUB_LINE_BUF : portion of the CLUSTER report. 
00001188 £88 189% an ate ‘ 13 : 
00000200 1188 1329 LAST_CLUB_LINE_LEN = .-LAST_CLUB_LINE BUF 
118 1899 TITLE_DSCR: ; Descriptor for TITLE_BUF - the buffer 
00000400' 1188 1375 -LONG TITLE_BUF_LEN : which receives the titles for 
" ~ : spla 
00001193° 118¢ 1381 ns Bur: TITLE_BUF 3 _— 
00001593 119 1382 LKB 1024 : 
00000400 133 13 ? TITLE _BuF etEN = .~TITLE_BUF 3 
159 13 5 CLASS_DSCR ; Descriptor for CLASS_BUF = the buffer 
00000400° 1593 15 $ “LONG CLASS_BUF _LEN ; which receives the Class names for 
1337 1 -ADDRESS - ; display. 
0000159B° 1307 ' - CLASS BUF : CLASS_BUF 3 
00 91998 1598 1 0 BLKB 1024 : 
0040 ieee ' 91 CLASS _BuF Oren = -~CLASS_BUF : 
1998 1595 DATA_DSCR: ; Descriptor for DATA_BUF the buffer 
00000400' 1 1398 4 OS gg DATA_OUT LEM : which receives the data for display. 
000019a3' 199 $6 cae po DATA_BUF ; 
00001DA3 19A3_ 159 -BLKB 1024 ; 
0000400 1DA 1599 DATA_BUF_LEN = .-DATA_BUF : 
1DA 1 
1DAS 1 
1D 16 
1D 16 


t Miscellaneous descriptors. 


» 


MBX_MSG_DSCR: 
=. i a 8 Reserved to receive message ength. 
- LONG Address of broadcast message (filled 
in by OUT_MSG routine). 


MBX_BUF:.BLKB 256 ; Buffer for receiving mailbox messages. 
MBX"BUF_LEN = .-MBX_BUF : 


TIME_DSCR: 
LONG _TIME_LEN 
“ADDRESS = 


BUF:.BLKB 20 
LEN = .-TIME_BUF 


80000000 
0000100 
00000014" 


SS 


Sete Sete 


Descriptor for buffer to receive 
current date and time from 
LIBSDATE_TIME. 

TIME _BUF 
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A 16 
1DAS 1 GET_VAL_DSCR: ; Descriptor for call to CLISGET_VALUE. 
O000003F* 1DA3 16 § -LONG  RET_BUF_LEN 3 r 
IDA? 16 8 «ADDRESS - ; 
00001DB3' 4 1 RET_BUF 3 
1DAB 1819 RET_BUF _DSCR: ; Descriptor for buffer to receive 
O000003F* 1DAB 1016 LONG  RET_BUF_LEN ; string from CLISGET_VALUE. 
1DAF 161 eADDRESS - ; 
OOO1DB3" 1DAF 1614 RET_BUF 3 
bh 1DB3 1615 RET_BUF:.BLKB 6 3 
O03F +4 : 1 RET_BUF_LEN = .-RET_BUF 3 
1DF 1818 LAST_BROCST_DSCR: ; Descriptor for a copy of the Last 
00000000 1DF2 161 «LONG 3; broadcast message to be used to 
1DF6 1620 eADDRESS - 3 acren) the broadcast messages on 
QOO01DFA’ 1DF6 1621 LAST_BRDCST_BUF 3 a VTS2. 
1DFA 16 § LAST_BRDCST BUF: : 
QOOOIE7E IDFA 16 -BLRB = 132 3 
Hea 
1E7E 16 $ ERR_MSG_DSCR: ; Descriptor used to output an error 
00000000 1E7E 16 - LON 0 3 message. 
1E82 1628 eADDRESS - : 
OOOO1EBE’ 1€ 1629 GET_MSG_BUF : 
1B 1631 
1E86 16 § GET_MSG_DSCR: ; Descriptor for buffer for SGETMSG. 
00000100° 3 r 1634 -LONG GET_MSG_BUF_LEN i 
QOOO1ESE' 1E8A 1635 ° GET_MSG_BUF 3 
1E8E 16 § GET_MSG_BUF : 3 
QOOOIFB8E 1EB8E 16 -BLK 256 3 
0000010 . : 19 3 GET_MSG_BUF_LEN = .-GET_MSG_BUF 3 
1FBE 1640 
1FBE 1641 ASC_TIM_DSCR: ; Descriptor used to format INCN_TIME. 
00000017 1F 1966 " 23 ; Enough room for DD-MMM-YYYY HH:MM. 
1899 164 -ADDRESS - 3 
O0001F96° 1F92 1644 {inour : 
00001F AD a 198? TIMBUF: .BLKB 2 : 
1FAD 1869 Descriptor for mailbox message buffer. 
1FA 1968 
1FB1 164 
1FBS 1650 
1FB5 1651 
1F 16 § 
1654 
i 
19 § 
1659 
1660 
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D1 1661 
D1 1 DDM_SIZE: 3; Size of the display discription 
0000 20D i Pees WORD 0 ; message. — : 
D3 1665 CMD_LINE_DSCR: ; Descriptor for command input buffer. 
00000078' : 1208 Tee gg nut LEN ; 
00002008" D7 1668 san det : CMD_BUF 
90002153 20 1870 -"" .BLKB 120 : 
000007 12 24 CMD_BUF_LEN = .-CMD_BUF ; 
13 1858 FORMAT _BUF _DSCR: 3; Descriptor for FORMAT_BUF = used to 
153 1674 FORMAT_BUF LEN: ; store the data after formatting the 
00000000 12 197? 2 ; data in ascii. 
00002158" 2157 1879 3 FORMAT_BUF : 
158 1678 FORMAT_BUF : ; 
000021AB 2158 167 -BLKB 80 : 
1AB 1680 
1aB 1682 
1AB 1888 > Miscellaneous parameters. 
8 188 | 
00 21AB 1686 SWITCH: .BYTE 0 3; Controls switching between reports 
1AC 1687 ; when /REPORT=CYCLE. Reports are 
1M 1938 3 switched when bit 0 is cleared. 
FFFFFFFF F70F2E80 21AC 1690 DELAY: .LONG <-10*1000*1000*15,-1 ; Delay time between display updates 
\ 199) ; Defaults to fifteen seconds. 
00000000 00000000 2184 1898 A_TIME: .QUAD 0 3; Quadword to receive binary time for 
186 1098 ; /ENDING and /BEGINNING. 
1BC 1998 TITLE_COUNT: ; Used by GET_TITLES to calculate the 
00000000 166 1927 -LONG 0 : length of the titles in characters. 
1€O0 1699 TITLE_START: ; Used by GET_TITLES to calculate the 
00000000 19 : Bo -LONG 0 ; length of the titles in bytes. 
1¢4 «17 § HEADER_SIZE: ; Size of the header in characters. 
00000000 ice 4 ? -LONG 0 ; 
ics 1705 CLUB_HEADER SIZE: ; Size of CLUSTER class header. 
00000000 \ee \? $ LONG 0 : 
1C€C 1708 SCS_HEADER_SIZE: 3; Size of SCS class header. 
00000000 ire 1708 ; LONG 0 ; 
1b9 1711 ; Array for storing the tength in characters of the titles as calculated by 
1D Har; 3 the ber TITLES and SAVE_TITLE_LEN routines. This length is used by the 
1 Hay ; GET_CLASSES routines to center the class name. 
1D 1715 : ¢eecececee ¢eeecceooen ¢eeeeeece ¢eoeeececen + 
1D at ; H Size of CLUSTER titles ' 
1D 171 3 eee w ese = fern wreore gece moon wee ee a 
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00000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
00000000 


of 
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TITLE_LEN ARRAY: 
~BLKL 9 


CURRENT _CLASS: 

.LONG 0 
DATA_CNTRL: 

-LONG 0 
SAVED_CLASSES: 

.LONG 0 
LOCAL_SAVE: 

.LONG 0 
CLUST_SAVE: 

.LONG 0 


DEVICE_CLASS: 
= LON 

DEVICE_TYPE: 
. LONG 

BUFFER_SiZE: 
. LONG 


o © 


SAVE_CHAR_BUF : 
BYTE 0 
“BYTE 


. WORD 
DEVDEPEND: 


a tk at td ed dt ot = ss ss — os os —) 4 2 1 9 9 — — 2d 2) ) 2d ds Ss Ss eS 
SNS SSS SSNS 
SNA AAA AAA AAA MMIII ES BS BS BS SB AAAI IAI AIA POON. 
FW ODA NE WN OS ODNAMU EWN O OD NAU EWN OOD NAME WWN OOD NAUEWN =O 
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Size of SYSTEMS titles 


Size of MEMBERS titles ' 


Size of COUNTERS titles 


Ce I ee 


Size of CREDITS titles 


Size of LOCAL -PORTS titles ' 


foocmomnonanpfossecmra prec oouwnsa hd wmwenreree + 


: Miscellaneous parameters for screen display. 


Indicates which class is currently 
being processed for display. 


Controls which classes will be 
processed for data display. 


Used to save class selections when 
generating the display. 


Used to save local class selections 
when switching to cluster report. 


Used to save cluster report 
selections when switching to the 
local report. 


; Buffer for device information from $GETDVI. 


Device class returned from $GETDVI. 
Device type returned from $GETOVI. 


Width of the terminals screen 
returned from $GETDVI. 


Device class. 

Device type. 

Screen width. Lag De: 
Device terminal characteristics 
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pyene 0 3; _returned from $GETDVi. 
DEVDEPEND2: 3; Extended terminal characteristics 
3; returned from $GETOVI. 


CHAR_BUF_LEN = .-SAVE_CHAR_BUF 


NEW_CHAR_BUF : Reserve space for a copy of 


. 2 + Device class, type. 
SCREEN_WIDTH: : 
-WORD OQ 3 Screen width, 
‘ 2 3; Characteristics, extended char. 
OUTPUT WIDTH: ; Output width for LBRSOUTPUT_HELP. 
00000000 “LONG O 3 “ ? 


: Buffer for process information from $GETJPI. 


A POIV ae : Mask of processes current privileges. 


00000000 0 ; 


; Storage area for various terminal parameters. 


00000000 18 
0000000 
000000C 

00002222 

oooozeee 

5 
5 
2 
3 
2 
5 
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0000 IN_CHAN:.WORD 0 ; Word to receive channel number for 
3 terminal input. 
OUT_CHAN: ; Word to receive channel number for 
0000 «WORD 0 ; terminal output. 
SET_CHAN: ; Required by LIBSSET_OUTPUT. 
00000000 : -LONG 0 ; 
0000 11 MBXCHAN:.WORD 0 ; Word to receive channel number 
' 3 assigned to the mailbox. 
00000000 00000000 $ ' 10SB: -QUAD 0 : Reperve one quadword for 1/0 status 
3 ock. 
1 
00 17 IN_DEV: .BYTE 0 :; Input device type. 
00 rt ' OUT_DEV:.BYTE 0 ; Output device type. 
3 LINE_NUM: ; Current Line number 
00000001 4 -LONG 1 3 
4C COL_NUM: ; Current column number 
00000001 4 eL 1 3 
5 FIRST_LINE: ; First Line on the screen. 
00000001 5 «LONG 1 H . 
54 FIRST_DATA_LINE: ; Number of the first Line to contain 
00000007 3 LONG 7 ; displa gota which can be vertically 
3; scrolled. 
38 LAST_DATA_LINE: ; Number of the Last Line used to 
00000000 5 -CONG O ; display data. (3rd to Last on Line 
5¢ 3 3; on the terminal) 
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¢ 1 CMD_LINE: ; Number of the second to Last Line on 
00000000 LONG 0 3; the terminal. 
60 1834 LAST_LINE: ; Number of the Last Line on the 
00000000 60 1835 «LONG 0 3 terminal. 
64 (1 § 
st 
64 «1 § : Parameters used by the pie oe Y and LOOKUP_FIELD routines. These 
o : re 3 parameters control which field descriptors tO use to display the report. 
64 1842 © 
64 «(1 rk ADRS_TABLE: 3 peau — table of field descriptor 
00000000 64 1844 ~LON 0 ; addre 
rt 1845 BITMAP_ADRS: 3 address "of “bitmap to be scanned. 
00000000 68 184 «LONG 0 
00000000 6C ! 2 MAP_LEN: ot 8 ; Length of the bitmap to be scanned. 
2 184 START_BIT: ; Number of the bit to start the scan. 
00000000 70 1850 -LON 0 
74 1851 KEYTAB_ADRS: ; Address of tape of keywords used to 
00000000 e 1888 «LONG 0 ; identify a field 
Hi 
f 1326 : List of systems that have been removed from the display by system ID number. 
78 1858 © 
i igs SYS_ID_LIST: 
00002208 78 1860 -BLKB 6*MAX_ID ; Reserve six bytes for each possible 
00000060 08 1861 ID_LIST_LEN = .-SYS_IB_LIST se 
3 em. 
00000010 34 1868 ID_LIST_LENTRYS = MAX_ID 3 Raxiaun number of entries in the List. 
208 1885 ID_ COUNT: ; Number of entries in the List. 
00000000 $e 1306 -LONG 0 
pe 1868 ID_RESULT: ; Reserve one quadword for result from 
00000000 00000000 sot 1399 -QUAD 0 3; system ID string to hex conversion. 
2—4 «1871 
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_V04 Macro definitions. 4-SEP-1984 
73 -SBTTL Macro definitions. 
~SBTTL - Conditional Branch Macro. 


; The following macros are used in place of a BRANCH ON (CONDITION) instruction 
78 ; when the displacement exceeds 256 bytes. 


: JLBS - used in place of BLBS 


.MACRO JLBS SOURCE, ADDRESS?L1 
BLBC = SOURCE.L1 
BRW ADDRESS 

.ENDM = JLBS 


: JLBC = used in place of BLBC 


MACRO JLBC SOURCE ,ADDRESS?L1 
BLBS SOURCE ,L1 
BRW ADDRESS 

-ENDM JLBC 


: JNEQ = used in place of BNEQ 


oooovon 
Soooooo 


«MACRO JNEQ ADDRESS?L1 
BEQL L1 
BRW ADDRESS 
-ENDM JNEQ 


L1: 


: JEQL - used in place of BEQL 


Phe PPP e EES > 


OO NIA AE WN 0 ODA NE WI 9 OD NAME WIN 3 SO OD NA NEW 0 ODN Ut 


- MACRO ae ADDRESS?L1 
BRW ADDRESS 
-ENDM = JEQL 


3; JNEQU - used in place of BNEQU 


MMM MMMM MMMM MMM MMM MMM MMMM MniMhMniMmnimMmMnmMmMmmMmmMmMmMmmmmnmrmmnmmmnrmnencnencrnicrnicrecvrveecry 
Pe ee SS SS Ae Se OE NS OE Se Oe Oe Oe Oe Oe ee ee ee Oe ee Ne Oe ee ee ee Oe ee ee Oe A A Oe ee 
me em em ee a ed ed od dd 8 8 8 
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»~MACRO JNEQU ADDRESS?L1 
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BEQLU LI 
BRW ADDRESS 


[ ao 
os 
- 


-ENDM = JNEQU 


; JEQLU = used in place of BEQLU 


-MACRO JEQLU ADDRESS?L1 
BNEQU L 
BRW ADDRESS 
-ENOM JEQLU 


FR PFW ANN 
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: JGTR = used in place of BGTR 


-MACRO aere ADDRESS?L1 
BRW ADDRESS 
-ENDM JGTR 


Cc 
> 
io 


; JLEQ - Used In place of BLEQ 


-MACRO JLEQ ADDRESS?L1 
BGTR 1 
BRW ADDRESS 
-ENDM JLEQ 
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QS 


THM CMM MMMM MMM MMM MMM MMMM MMM MMMM MMM Mmmm emMcenicnienmcniéevicniceoevievierviecvicvicvieviecvieviyevy ever ve ere ery 

oy oy oY oY oY ot ot ot ot et et tt ee ek ek hh ek eh he he 

a a ee a a a td 
SOS OOOO OOOO OSL OO SOCSOOOOOSOOL LOL SL 


6 
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79 + JGTRU - used in place of BGTRU 
7 e 

8 -MACRO JGTRU ADDRESS?L1 
74 BLEQU LI 

75 BRW ADDRESS 
376 L1: 
97 ~ENDM JGTRU 
378 
380 ; 
4 ; + JLEQU - used in place of BLEQU 
9 o 

984 -MACRO JLEQU ADDRESS?L1 
985 BGTRU LI 

986 BRw ADDRESS 


tn 
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-ENDM JGEQU 


JLSSU = used in place of BLSSU 


-MACRO JLSSU ADDRESS?L1 
BGEQU L 
BRW ADDRESS 
-ENDM = JLSSU 
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; JCS - used in place of BCS 


- MACRO ate Aqonesen.t 
BRW ADDRESS 
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E4 19 7 Uts 

e4 1 8 -ENDM = JLEQU 

EL 1990 

E4 1395 : 

£4 1336 ; JGEQ = used in place of BGEQ 
E4 1993; 

E4 1994 

ES 1995 -MACRO JGEQ ADDRESS?L1 
E4 1338 BLS L1 

E4 199 BRw ADDRESS 
E4 1338 L1: 

E4 199 -ENDM JGEQ 

E4 Bao 

E4 01 

EG 4 3 

E4 2005 ; JLSS - used in place of BLSS 
E4 One 3 

E4 2005 

E4 4 -MACRO JLSS ADDRESS?L1 
E4 200 BG 

E4 08 BRwW ADDRESS 
E4 09 L1: 

£4 1 -ENDM JLSS 

E4 1 

iz} 1 

E4 13; 

ce : ; JGEQU - used in place of BGEQU 
E4 2016 - 
E4 1 -MACRO JGEQU ADDRESS?L1 
E4 1 BL 
E4 1 BRW ADDRESS 
E4 L1: 
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-ENDM = JCS 


| SHWCLSTR Show shvater Us ti ity 
v04 = Conditional Branch Macro. 


: sce 
MACRO JCC 
BC 


BRW 
-ENDM JCC 
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«MACRO JVS 
B 


MACRO JBS 
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BC 
3 BRU 
38 -ENDM = JBS 
9 
98 
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used in place of BCC 


ADDRESS?L1 
ADDRESS 


3; JVS - used in place of BVS 


1 epepene 
ADDRESS 


ADDRESS?L1 
ADDRESS 


used in place of BBC 


ADDRESS?L1 
1 


vc 
8 BRw 
Li: 
o -ENDM Jvs 
068 ; 
3 3; JVC - used in place of BVC 
0 
-MACRO JVC 
BV 
BRW 
075 L1: 
~ENDM JVC 
078 ; 
079 ; JBC - 
080 ; 
0 
3 -MACRO JBC 
BBS 
BRwW 
Li: 
-ENDM JBC 


; JBS - used in place of BBS 


BIT_NUM,SRC_ADRS ,ADDRESS?L1 
BIT"NUM,SRC_ADRS,L1 
ADDRESS 
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-SBTTL DEFINE _FIELD macro. 


MACRO DEFINE_FIELD 
This macro builts the data structures neccessary to display each field. 


ARGUMENTS = 

REPORT - 
Report that the field will appear in. Must be CLUSTER, 
or LOCAL_PORTS. 

OFFSET = 
Name of the SCS offset to use when extracting the data from the 
SCS database. This can be any predefined offset. t is 
pores) ty one of the SCS offsets with prefixes CLUBS, SBS, CS8S, 
PBS, CDOTS, or POTS or a miscellaneous buffer offset with prefix 
MBS. This allows the default display routine DISPLAY_FIELD to 
be used. 

LENGTH - 
The number of bytes of data to be extracted from the SCS 
database to display the field. 
Note: For ASCIC formated fields, LENGTH must be the maximum 
number of characters in the length of the formatted string. 
This may differ from the number of bytes extracted if the 
DISPLAY_FIELD routine is not used for an ASCIC field. 

TITLE = 
Title for this field as it will appear in the display. 

FORMAT - 


Format of d 
ASCII, ASCI 


MINIMUM_SIZE - 
Minimum number of columns to allow for display of this field. 


DEFAULT_SIZE - 
Default number of columns to use for display of this field. 


DISPLAY_FLAG - 

This is an optional argument. It is non-zero if the display of 
the field is to be enabled in the report by default. If this 
argument is omitted, the field will not be displayed. 


DISPLAY_ROUTINE - 

Pet tonal address of routine to handle display of this field. 
If this argument is omitted, the field is displayed using the 
routine DISPLAY_FIELD. 


isplay for this field. Must be one of HEX, DEC, 
C, or TIME. 


Five structures are built for each report: 
*REPORT'_DSCRS - 
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This structure contains the field descriptors unten contain the 
information negeed to display gees of the fields in the report. 
The following illust e format of one such descrip 


rates th tor: 


"REPORT' BITMAP - 


This bitmap is used to control which field in the report are 
displayed. Each bit in the map correqpende to one of the 


fields in the display. Setting the bit turns the field on. 


a eer ee neon ef meme wm ee ep awmeeans eH oer nrar ras} 


: { ONE BIT FOR EACH FIELD IN REPORT : 


porwr e error pe rer weowmawen pwn erro e fore wrecee + 


ber of fields/32 ‘ 


> "OFFSET" _DSCR: 

3 pera snraaataswrsa mesa tearanmesat ace nroswa sy 
: { MAX. | MAX. | MIN {| FIELD. } 
3 : FIELBL {| DATA, | FIELBL : SIZE™ : 
; : SIZE : SIZE + SIZE : ' 
3 $a nee core tb moma weawre ronan wrn nh eeowaenraoe } 
; ' RESERVED + FORMAT | LENGTH ; 
3 terse wo cabo wanes ae tor an esate sew nes ae & 
; ; FDSL_DISPLAY_ROUTINE 
g pees eecre pens ecees{p ecw eso se yoeseerean$ 
; FDSL_CLASS 
3 g$weerenwe¢ wren een ep er mere se fHowrerererony 
: FDSL_OFFSET 
g $moeaseeerw perma mozrece por emsmaepeawmeoene > 
: FDSL_OFFSET_PRFX 
3 Cn ont 
; "TITLE' ADRS: 

g Cn oes 
; ' + SIZE : 
P : pow meen & 
; ; FDST_TITLE . 
: ee ee 
; "REPORT' TABLE - 

; Since the field descriptors are of variable length, this table 
3 is used to locate the start of each descriptor. It contains a 
3 List of pointers to each of the field descriptors for the 
: report. 

: a -ewmowroemre $e eon wemecn pose ocerentowennee o+ 
; ' ' ADDRESS OF FIELD DESCRIPTOR H 
3 wwe ewe foe ne or + 
; Number of fields . 


6 
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*REPORT' _KEYTAB = 


This is a table of keywords which is used to associate a field 
title with a bit in the bitmap. The format of this table is 
compatable with LIBSLOOKUP_KEY. 


ber ern cee ap une rmamewpmmnncnwe}poasanrawa td 


' VECTOR_COUNT H 


twa rereece}pooce ce ees toaseneasypocassecses ; 


a a eS 


' ' KEYWORD VALUE ' 


ne ee ee ; 


Number of fields {| ADDRESS OF KEYWORD NAME STRING ;: 
t mes two weewceoe tooo ooes tocceooce}ooccecce!} 


Vv . 
"REPORT" _SIZE_ARRAY - 


ad + 
: : Copy of! 
: : FIELD. : 
: SIZE: 
One byte for each teoeoooont 
field . 
» rs 
00000000 KEYWRDVAL = 0 
-NOSHOW MEB 
MACRO DEFINE_FIELD REPORT OFFSET, LENGTH, TITLE ,FORMAT- 
MINIMUM_SIZE, DEFAULT SIZE ,01SPLAY_FLAG=0,- 
DISPLAY ~ROUTINE=DISPCAY_F ELD 
-PSECT ‘REPORT'_SIZE_ARRAY,RD,WRT ,NOEXE 
-BYTE DEFAULT_SIZE ; Save the default field size for use 
3; by the INITIALIZE command. 


Foy oy oY oy oy ot ot ot oot et et et et hk kk kk ee 
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-PSECT ‘REPORT’ _DSCRS,RD,WRT ,NOEXE 


J 6 
Show Cluster Utility 15-SEP-1 AX/VMS Macro v04-00 Page 
- DEFINE_FIELD macro. t=SEp- 1984 $3 36: $f CLIUTL.S REIS HWCLSTR.MAR;1 
b4 7 
4 72 ‘OFFSET’ _DSCR: 
4 7? BYTE DEFAULT_SIZE ; Store the current 1ecbestte field size 
bs 74 3; at offset F ae 
4 75 -BYTE MINIMUM_SIZE ; Store the minimum dis ‘st field size 
Fa 7 ; at offset FDSB_MIN_FLD. SIZE. 
E4 7 
E4 78 ; 
£4 rg ; Store the maximum data size at offset F ose MAX_DATA_SIZE followed by maximum 
E4 ? ; field size at offset FDSB_MAX_FLD_SI ie if data is td be displayed using ASCII 
E4 3; or hexadecimal format. 
Bi 
E4 4 lf NE FORMAT=-DEC 
E4 5 lf NE Anan bag oT 
E4 $ olf NE RATT INS 
5? -BYTE NORMAT#LENGT 
4 8 lf GE FORMAT #LENGTH-SLENGTH(TITLE) 
E4 BYTE FORMAT*LENGTH 
E4 90 LFF 
E4 91 -BYTE %LENGTH(TITLE) 
E4 3 ~ENDC 
E4 9 eENDC 
Eq 94 -ENDC 
£4 95 -ENDC 
Ht 38 
3) 98 ; Store the maximum data size at offset FDSB_MAX_DATA_SIZE followed by maximum 
E4 99 ; fieid size at offset FDSB8_MAX_FLD_SIZE if data is t6 be displayed using ASCIC 
ce 39 3; format. 
E4 03 IF EQ oyiee partes 
E4 0 -BYTE EORRAT/ASe ICOLE NGTH 
E4 04 lf FORMAT/ASCIC*LENGTH-2LENGTH(TITLE) 
yi b2 “frre FORMAT/ASCIC*LENGTH 
£4 07 -BYTE %LENGTH(TITLE) 
E4 38 -ENDC 
E4 0 -ENDC 
at 
£4 \ 3 Store the maximum data size at offset F ose MAX_DATA_SIZE followed by maximum 
E4 13; field size at offset FOSB_MAX_FLD_SIZE if data is t6 be displayed as a time 
ce 1 3 string. 
ES 1 IF EQ FORMAT-TIME 
E4 1 -BYTE LENGTH 
BG 18 oat GE LENGTH-ZLENGTH(TITLE) 
Ea 1 -BYTE LENGTH 
E4 0 LFF 
E4 1 -BYTE %LENGTH(TITLE) 
E4 § -ENDC 
E4 -ENDC 
F¢ $355 
E4 6 : Store the maximum data size at offset FD$B_MAX_DATA_SIZE followed by maximum 
os 3 field size at offset FOSB_MAX_FLD_SIZE if data is t6 be displayed using 


Kk 6 
SHWCLSTR Show Cluster Utility 15*SEP=1984 23:52: AX/VMS Macro v04-00 Pa 
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3; decimal format. 
IF EQ FORMAT=DEC 
LEN = 1 
-IRP = SIZE, <3,5,8,10,13,15,17,20> 
“1IF EQ LENGTH-LEN, DEC_SIZE = SIZE 
LEN = LEN #1 
ENDR 
“BYTE DEC_SIZE 
“IF GE DEC_SIZE-%LENGTH(TITLE) 
BYTE DEC_SIZE 
“IF LT DEC_SIZE-%LENGTH(TITLE) 
“BYTE %LENGTH(TITCE) 
"ENDC 
“ENDC 


; 
; 
; 
; 


-BYTE LENGTH Store the number of bytes that goreer 
in the SCS database for this field 
at offset FDSB_LENGTH. 

-BYTE FORMAT Store the type of format to use to 

gap lax the data at offset 

FD$B_FORMAT. 

Reserve on one. 

Store the address of the routine used 
to ht the field at offset 

FDOSL_DISPLAY_ROUTINE. 

Store the family type that this field 
is a member of at offset FDSL_CLASS. 

Store the value of the SCS data 
structure offset for this field at 

offset FDOSL_OFFSET. 


» WOR 0 

-ADDRESS - 
DISPLAY_ROUTINE 

-LONG CLASS 


LONG ‘OFFSET’ 


; Save the first four characters of the offset name at offset 
> FDSL_OFFSET_PRFX. 
: -LIF EQ ZLOCATE(<CLUBS$>, OFFSET), ~ LONG “A/CLUB/ 
5 -LIF EQ XLOCATE(<SB$>, OFFSET) -LONG “A/SBS / 
§ SLIF EQ SLOCATE(<CSB$>, OFFSETS, -LONG “A/CSBS$/ 
[LIF EQ ZLOCATE(<PBS>, OFFSET) “LONG “A/PBS$ 
8 [1IF EQ SLOCATE(<CDT$>, OFFSETS, -LONG “A/CDT$/ 
9 LIF EQ ZLOCATE(<PDT$>, OFFSET), ‘ G “A/PDT$/ 
70 -TIF EQ ZLOCATE (<MBS$>, OFFSET) “LONG “A/MB$ / 
4 LIF EQ ZLOCATE(<SCS$>, OFFSETS, “LONG “*A/SCS$/ 
7 LIF EQ SLOCATE(<$>,OF FSET) - ZLENGTH(OFFSET), .LONG 0 
75; 
6 ; Store the ascii title at offset FDST_TITLE. Create a label for the. 
; location where th gigte is stored. The label is the same as the title, but 


; e 
: is followed by "_ADR 


TITLE*_ADRS: 
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; Now save the title as an ASCIC string. This will place the Length of the 
; string at offset FOSB_TITLE_SIZE and the string at offset FDST_TITLE. 


eASCIC /TITLE/ 3; Title for etsolay field. 
; FOSB_TITLE_SIZE 
; FOST_TITLE 


-PSECT ‘REPORT’ _TABLE,RD,NOWRT ,NOEXE 
-ADDRESS - ; Store descripter address in the 
OFFSET’ _DSCR ; address table. 
"REPORT _TAB_LEN = .~"REPORT'_TABLE ; Calculate length of the table. 
-PSECT ‘REPORT’ _BITMAP,RD,WRT ,NOEXE 
Every 33 times we invoke this macro, save the mask we are building in the 


bitmap and reset the mask to 0. Also increment the count of the number of 
longwords in the map. 


FES EON AAAAANAANAAA 
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COUNT = COUNT +1 
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i EQ COUNT-33 
-LONG MASK ; Save the mask in the bitmap. 
MAP_LENGTH = MAP_LENGTH+1 : Increase count of the number of 
; _longwords in the map. 
MASK = 0 ; Clear the mask. 
COUNT = 1 ; Reinitialize the counter. 
MASK_BIT = 1 3; Start over with bit 0. 


-ENDC 


; If the qisplay flag for this field descriptor is non-zero the this field is 
3 to be displayed. Set the bit for this field by combining the bit value for 
3 this field with the bit mask. 


POPOPOPIPINIPINPINPININIPININIPUNINPINININININININININNINININININININININININNIN 2 


MMMM MMMMM MMM MMMMMMMMMmMmMmmMmMmmnhmMmmnmmnmmnmnmnrrmrnircricnirricricrcry ric 


Pa a ae NS SS A Se Se NE NS Oe Oe ee Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe ee Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe ee Le Oe Oe Oe ee oe ae 


IF NE DISPLAY_FLAG 
MASK = MASK !MASK_BIT 
ENDC 


; On to the next bit. 


MASK_BIT 2 MASK_BITal 
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-PSECT ‘REPORT’ _KEYTABLE 


Save the address of the title string in the keyword table. This address is 
used by LIBZLOOKUP_KEY. 
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Show Cluster Uti 15-SEP- AX/VM cro V04-00 
Cluster report Haury descriptors. 2786-1382 $3 32: 88 CLIUT RCS SHWCLSTR.MAR; 1 
E4 246 SBTTL Slyster report field descriptors. 
E4 189 * SAVE _PSECT 
E4 106 
ES 2465; 
E4 tee 3 Initialize counters and masks. 
E4 2465 ; 
E4 $68 
00000001 E4 2467 MASK_BIT = 1 
00000000 £4 $08 MASK = 8 
00000000 E4 rh} COUNT z 
FFFFFFFF E4 470 MAP_LENGTH = -1 
E4 2671 
E4 tig i 3 
E4 267 : Create Labels which will be used to reference each of the data structures 
$e 1S 3; used in the cluster report as created by the DEFINE_FIELD macro. 
0000 at £76 -PSECT CLUSTER _SIZE_ARRAY ,RD,WRT ,NOEXE 
44 rt 44 CLUSTER SIZE ARRAY: 
00000000 2479 -PSECT CLUSTER_BITMAP,RD,WRT,NOEXE 
4 rt CLUSTER BITMAP: 
00000000 186 -PSECT CLUSTER_TABLE,RD,NOWRT ,NOEXE 
Bap rt F CLUSTER TABLE: 
00000000 2485 -PSECT CLUSTER_KEYTABLE ,RD,NOWRT ,NOEXE 
0000 2486 CLUSTER_KEYTAB: 
00000000 0000 2487 -LONG 0 
0004 2488 
0004 2489 ; 
0004 2490 ; Define the fields that make up the CLUSTER class. 
0004 2491; 
0004 138 
00000001 99 +37 CLASS = CLS$M_CLUB 
0004 495 DEFINE_FIELD <CLUSTER>, <CLUBSW_QUORUM> ,2,<CL_QUORUM> per. be ¢ 1 
000C 2496 DEF INE “FIELD <CLUSTER>.<CLUBSW~ VOTES? 3 <CL avores> DEC 
0014 2497 DEF INE -FIELD <CLUSTER>  <CLUBST_OD 3 fe <0 Astle. ae 15,1 
001C 498 DEF INE_FIELD <CLUSTER>, UBSL_FL Pe 90 esting. CEN, 
001C 2499 <QF VOTE>,ASCIC G64 °D Sf. OTE 
0024 2500 DEFINE _FIELD <CLOSTER>, <CLUB$W “abvorEs $> o> OF - aDvovEs> DEC.4,6 
Onge 501 DEF INE_FIELD <CLUSTER>, <CLUBSW_MEMSEQ> 3 MEMSEQ 
00 ? 206 DEF INE_FIELD Tie eens) *<CL UBSQ"FTIME>, tine” METRING CEN, * <FORMED>, ~ 
8 8¢ 304 DEF INE_FIELD CELUSTER> <CLUBSO._ LST_TIME>, TIME_STRING_LEN,- 
BO 505 <LAST_TRANSITION>> TIME,6,15,1 
044 2506 
0044 aT 3 : . 
Oaee 208 3; Define the fields that make up the SYSTEMS class. 
0044 2510 
00000002 Opee Ae CLASS = CLSSM_SYS 
044 218 DEFINE_FIELD <CLUSTER>,<SBST_NODENAME>, }6. <NODE>,ASCIC,2,6.1 
04C 514 DEFINE FIELD <CLUSTER>, <SB$8~ _SYSTEMID>,6,<SYS 1D>, DEC .5.8 
094 515 DEFINE “FIELD <CLUSTER>, *<SBSB-HWVERS>,12,< chi YVERS>. »HEX,2,20 
00000034 5C 2516 SBST_HWIYPE = SB$Q_SWINCARN + 
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5¢ 17 
64 1 
64 1 
$f 
4 1 
7¢ § 
4 
0000002C 008C 4 
: 5 
O94 ; ; 
94 $555 
094 ; 0 
094 1 
00000004 0094 25 ¢ 
094 25 
094 2534 
O9C 2535 
OAS 2536 
QOAC 2537 
0084 2538 
Q0BC 2539 
00C4 2540 
QOOCC 2541 
oocc 246 
0004 254 
Bope 544 
ODC 2545 
Q0E4 268 
QOEC 254 
Bore 548 
OFC 2549 
00000060 Bere 550 
are 22) 
OOF C 2§ 
00000060 0104 22 
0104 2554 
0104 2555 
10€ 228 
10C 255 
114 238 
0114 59 
11¢ 269 
11¢ 61 
11¢ 266 
11¢ 6 
00000008 O11C 2564 
Q11C 2565 
11¢ 266 
124 256 
12C 2568 
134 $379 
13¢ art 
144 276 
144 257 
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ee descriptors. 4-SEP-1 1384 $3:3¢:98 CLIUTL.SRCJSHWCLSTR.MAR; 1 
DEFINE FIELD <CLUSTER>,<SBST_HWTYPE>,4,<HW_TYPE>, ASCII 
DEF INE-FIELD <CLUSTER 2 ,<SBST- SWVERS>,4.<SOFTWARE>,ASCI i 5° 8,1, 
DEFINE_FIELD § <CLUSTER>,<SBSSHCSL_NUM_PB>,2,<NUM_CIRCUITS>,DEC,7,7 
DEFINE-FIELD  <CLUSTER>,<SBSW_MAXDG>,2 it efeos DEC,2,4 
DEFINE-FIELD  <CLUSTER>.<SBSW-MAXMSG>,¢,<MSG_SIZE>,DEC.2,5 
DEFINE-FIELD _ <CLUSTER>.<SB$Q-SWINCARN>,8, CEREARNAT TOMS HEX,2,14 

SBSQ_SWINCARN 2 = SBSQ_SWINCARN 
DEF INE_FIELD <FLUSTERD .<SesaS SyIECAR, 2>, TIME_STRING_LEN,= 


i Define the fields that make up the MEMBERS class. 


CLASS = 


oo vs vovvvr"r"9 
— ee — te be Oe Ot te 
222 22 22222222 
mmm Mmm Mmmmmmmm 
See Fe eerererce 
ovo 99 VvoVUVU"TSo 


CSBSL_STATUS1 = 
DEFINE FIELD 


CSBSL_STATUS2. = 
DEFINE _FIELD 


DEF INE_FIELD 
DEFINE _FIELD 


CLS$M_CSB 
<CLUSTER>,<CSBSL Sted 


<CLUSTER>, <CSBSB_ ECOLVL>,2 
DISPLAY PROTO 


-<CSID>,HEX,5 


ecACKR, 1°, D 


T> 


msGS>, + CONACKEDS 
<ACK_LM>, bee 
P ephotocOke bEC, 3, 


i) 


“DEC. 


<CLUSTER>, ecSes8 “Stake cae. 1 Ste stra if DEC.1,5 


<CLUSTER>, <CSBSW_ 
<CLUSTER>,<CSBSW_ aDvoves 
CSBSL_STATUS 
<CLUSTER>,<CSBS$L_STATUS1 
<QF SAME>,AS 
CSBSL_STATUS 

CeeUSTER> <CSBSL_STATUS2 
C1t,4 Ae 


Q v 
<CLOSTER> - gee ses- grat 
ASCIC Use 


<TRANSITION_ TIMES, TIME ,6 


STATE 


ie (§B°s 


1 


TRNG LE . 


OrES> > BEC. 5 5 


3,8, capvOTESgS béc 4,7 


>, YES_NO 


> 


STRNG_LEN,~ 
CIC.%,7,,DISPLAY_OF _SAME 


YES_NO_STRNG_LEN,- 
DISPLAY OF A 


ACTI 
B_STATOS STRNG_LEN,- 
<eLUSTERS <CSB$0° ner fIMe>s TIME seTRING. LEN,- 


tere 
< . ve 


: Define the fields that make up the CIRCUITS class. 


CLASS = 


CLSSM_CIR 


<CLUSTER>,<PBST_LPORT _NAME>, 
<CLUSTER>, <PBSB_RSTATION>,6, < 


<CLUSTER>,<PB$B8_RST_PORT>, 


<CLUSTER>. <PBSL 
<RP_TYPE>.ASCIC+5,6,1, 
* <PBSSHC$L NUM 


6,17 DISPLAY 


OoTATE S 


eg! 


aM DISPLAY" tik Merit 


4,<LPORT NAME> asc I, 3,5 
RPORT NORD , 


“RPORT_TYP>, feoRT iP of Re SEC, “LEN. 
av R mn SCONMECTIONS>, DEC,7,7 


6” 


Paar 


. 


SHWCLSTR Show Cluster Utilit 15-SEP-1984 2: AX/VMS Macro v04 Page 51 
“¥04 Cluster report field descriptors. 278b=|98e $3: 36: 64 CLIUTL. SREagHUCLST «MAR; 1 “ (8) 
| 16C 2576 DEFINE_FIELD  <CLUSTER>,<PBSB_RSTATE>,PB STATE STRNG_ LEN,- 
| 14¢ 5575 CREM STATED, ASCIC.6,7, DISPLAY. RSTAT 
154 i: DEFINE FIELD  <CLUSTER> <PeS6 CB. stS> > eB STAT STRNG EN,- 

154 257 <CABLE_STATUS>, ASCIC 5 5. <DISPL Y CABLE STAT 
| 15¢ 28 DEFINE_FIELD  <CLUSTER>,<PBSL_RPORT Rey p REVISION n> CHE, 5,8 
164 257 DEFINE-FIELD  <CLUSTER>.<PBSL_ RPORT™ FEMS: mt CRP FUNCTI HE 45.8 
1g¢ 3 0 DEFINE-FIELD  <CLUSTER>.<PBSL~WAITOFL>,4.<SCS_QAITERS> epee. es 
174 2582; 
Ht, 2 $ 3 Define the fields that make up the CONNECTIONS class. 
174 5° 
00000010 124 § CLASS » CLS$M_CON 
0174 3 8 DEF INE_FIELD <cLust mesicotteta DST 1-pRoC> .16,<LOC_PROC_NAME>,- 
i 390 DEFINE_FIELD <CLus b Re cst sees Tene ppROCs 16, , <REM_PROC_NAME>, = 
184 39¢ DEF INE_FIELD <CLuS teh ct 13, STATED. BISPLAY_CON_STATE_LEN,- 
0184 59 <CON_STATE> *DISPLAY~C ATE” 
018C 2594 DEFINE FIELD  <CLUSTER>, <EDTSL.CCOniDS.4,<LOC- CONTD> ,HEX.8.9. 
0194 595 DEFINE-FIELD  <CLUSTER>.<CDT$L_RCONID>,4.<REM~CONID>.HEX.8.9 
19¢ 596 DEFINE-FIELD  <CLUSTER>.<CDT$W BLKSTATE>: DISPCAY_SCS erate. “LEN, - 
019¢ 59 <SCS_STATE>, ASCIC,6,7,,DISPLAY_SCS_STATE 
bine 5899 
O1A4 600 : Define the fields that make up the COUNTERS class. 
01A4 2601 ; 
00000020 O1Ac rt) CLASS = 
O1A4 2604 DEF INE_FIELD Se Te TERS. <CDTSL_DGSENT>, 4. <DGS_SENT>,DEC, 5. 5.1, 
O1AC 2605 DEFINE-FIELD  <CLUSTER>.<CDT$L_DGRCVD>.4.<DGS-RCVD>,DEC.5.5.1. 
o1B4 606 DEF INE-FIELD <¢ USTER>,<CDTS$L_DGDISCARD>.4,<BGS VDSERDS DEC” 
01BC 2608 DEFINE _FIELD zt OSteR>, <CDTSL_MSGSENT>,4,<MSGS_SENT>,DEC.6.6.1. 
104 2609 DEF INE~FIELD <CLUSTER> . <CDISLMSGRCVD> . 4, <MSGS_RCVD> DEC. 6.6.1, 
1CC 2610 DEFINE-FIELD | <CLUSTER>.<CDT$L~SNDDATS>.4.<BLKS. SENT>. DEC “ 
1D4 2611 DEFINE-FIELD  <CLUSTER>.<CDTS$L-REQDATS>.4.<BLKS_R ¢,3 es 
o1p¢ 61g DEF INE~FIELD <CLUSTER> <COTSL- BYTSENT>.4.<KB_ sents. bee. _ te 
Oie4 614 DEF INE_FIELD <CLUSTER> <CDTSL_BYTREQD>,4,<KB_RCVD>,DEC,4.4,.- 
QieC 616 DEF INE_FIELD <CLUSTERD <CDTSL_BYTMAPD>,4,<KB_MAPPED>,DEC.4.4,.- 
1F4 618 DEF INE_FIELD RCLUSTERD. <CDT$W_QCR_CNT>,2,<CR_WAITS>,DEC,1 
if 619 DEFINE“FIELD  <CLUSTER>.<CDT$W~QBDT_CNT>,2,<BDT MUA TSS EC I » © 
4 2621; 
Oe § 3; Define the fields that make up the CREDITS class. 
626° 
00000040 4 6 5 CLASS = CLSSM_CRD 
4 ; $ DEF INE_FIELD <CLUSTER> .<CDT$W_SEND>,2,<SEND>,- 
¢ 6 : DEF INE_FIELD <cLOstEhy: <CDT$W_MINSEND>,2,<MIN_SEND>,- 


dD 7 
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 SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro V04-00 P 5 
v04 Cluster report field descriptors. arSEE= IRs 33:32:89 PAMIURS Sac sewucr ste mans: P29 2B 
| 1 $ 1 DEF INE_FIELD seuu TER> -<COTSU_REC>.2.<RECEIVED,= 
1¢ 6 $ DEF INE_FIELD cL FER>, <CDTSW_PENDREC>.2,<PEND_REC>,~ 
é 6 5 DEF INE_FIELD <CLUSTER>, <CDTSW_INITLREC>.2,<INIT_REC>,= 
C 26 § DEF INE_FIELD <CLUSTER> . <CDTSW_MINREC>,2,<MIN_REC>,= 
; O38 DEC, . ote 
0000 r eey -PSECT CLUSTER_KEYTABLE,RD,NOWRT ,NOEXE 
00000046 4 $68 NUM_CLUSTER_DSCRS = KEYWRDVAL ; Save the number of descriptors in the 
2 vez ; cluster report. 
44 434 43 4 2645 .= CLUSTER_KEYTAB ; Save the vector count for 
000008C Be 048 «LONG KEYWROVAL*2 ; LIBSLOOKUP_KEY. 
00090094 0004 2647. = . *KEYWRDVAL #2 
094 2648 
094 5650 
0094 2651 : Save any partial mask in the bitmap and increase the count of the bitmap's 
Boos $36 : Length. 
0000 cg 634 . .PSECT CLUSTER_BITMAP,RD,WRT .NOEXE 
H000008 aie 639 nates 
00000002 000C 2658 MAP_LENGTH = MAP_LENGTH41 
2 ae 
00000002 Q00C 2661 CLUSTER_MAP_LEN = MAP_LENGTH ; Save the number of Longwords in the 
4 3 4 ; cluster bitmap. 
4 $5 664 CL_SAVE_BITMAP: ; Reserve enough room for a copy of the 
00000018 st 665 -BLKL MAP_LENGTH+1 :; cluster bitmap to be used by the 
001 666 : INITIALIZE command. 
0018 2667 
0018 2668 


; 


Oem 


Show Cluster Utility 


MASK _BIT 
Count 


nn 
oOo ~" 
Ss ~~" 
So 
oo 
a ee 


LOCAL_SI 


UNT 
MAP_LENGTH 
KEY YOR RDVAL 


Local status report "tela descriptors. 


R8Eb= 1982 33:32:09 


AX/VMS Macro wre 00 Page 
CLIUTL.SR RCISHW HWCLSTR.MAR; 1 


“~w 
Ow 
‘ 


-SBTTL Local status report field descriptors. 


: Create Labels which will be used to reference each 


7 
; Initialize counters and masks. 


1 


or 
— 


the data structures 


-PSECT LOCAL. SIZE ARRAY ,RD,WRT ,NOEXE 


ie ARRAY: 


-PSECT LOCAL_BITMAP,RD,WRT,NOEXE 


-PSECT LOCAL TABLE ,RD,NOWRT ,NOEXE 


4 
0 
f 
cho 
g 3; used in the local report as created by the DEFINE_FIELD macro. 
8 
9 
0 


-PSECT LOCAL_KEYTABLE,RD,NOWRT ,NOEXE 


LOCAL BITMAP: 
0000 Q 
0 93 LOCAL_ TABLE : 
00 94 
000s 695 
444 696 LOCAL _KEYTAB: 
00000000 0000 269 LONG 
0004 2698 
Boe 99 ; 
004 + g 
04 2701; 
04 270 
00000080 0004 2703 CLASS r 
04 2704 
04 2705 
Bape 70 DEF INE_FIELD 
00C 70 DEF INE~ FIELD 
00C 2708 
14 2709 DEF INE_FIELD 
014 2710 
1¢ 2711 
01C ay 
Boe 71 DEFINE _FIELD 
4 2714 DEF INE_FIELD 
024 2715 
C ay DEF INE_FIELD 
4 71 DEF INE_FIELD 
C as | DEFINE FIELD 
44 271 DEFINE FIELD 
C 720 DEFINE FIELD 
54 2721 DEFINE FIELD 
5C 7 § DEFINE FIELD 
4 27 DEF INE_FIELD 
64 724 
of 725 DEF INE_FIELD 
4 726 DEFINE FIELD 


\ (ee 


Define the fields that make up the LOCAL_PORTS class. 


CLSSM_LPRT 


<LOCAL>, <LOCSYSID> 26 
<LOCAL psc R> 

DEC Bt 6 ORR 

<LOCAL>, <NUM_F ale’e 4. 

CLOEAL3 HURL EREE GUE DSCRD§.= a ary 


<LSYSTEM_ID>,DEC, 


404. -FORMAT_DATA 
.2.<BUFF_DESCRIP 


TORS>,- 


<LOCAL>, <MBSL_PORT_NAME>,4,<NAME>, ASCII,3,4,1, 
status STANG_L LENE 


LAY_PORT_S 


L 
<LOCAL>.<PDTST_CNTOWNER>, 16,<COONTE 

> ITERS>,4.<POOL_ WAT 
4. <HS6 HOR_S12Z 

pore D 

MBSL rey yre >, DEV TRNG_LEN, 

te the sere mn 3 fiat Pony TYP 
<LOTAL>, AAS W baton <OPEN CIRCS>,DEC,3,6,1 
<LOCAL>. <MBSL YFORM PB ty e <FORM _CiRCS> EC, 3.6.1 


fF 7 
SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro V04-00 P 
| v046 Local status report. field descriptors. ta8Ep-19 4 33:32:09 CLIUTL.SRCJSHWCLSTR.MAR; 1 vee 
| 7C 2727 DEFINE FIELD <LOCAL>, <MBSW_CMDS_QUED>,2,<CMDS_QUEUED>,ASC1I1,2,4 
4 7 8 4a Ba <LOCAL>, <MBSW_RSPS_QUED>,2,<RSPS_QUEUVED> ASC 1,2,4 
. a 0 Meat iEte <LOCAL>, <PDT$B_MAX- PO ° ORT>,DEC.5, 
4 2730 DEF INE-FIELD LOCAL>,<PDT$B_PORTMAP>,2,< >,HEX,5.7 
9C 2731 DEFINE-FIELD  <LOCAL>,<PDT$B-DOQIMAP>,2,<DGI_MAP>,HEX, 5,6 
AG 7 j DEFINE-FIELD | <LOCAL>.<PDT$B-PLOGMAP>,2,<LOG_MAP>,HEX,5,7 
AC e7 DEFINE“FIELD  <LOCAL>,<PDTS$B-P = 85153 iB STAT_STRG_LEN,- 
at g é <LB_STATUS>,ASCIC75,5,,DISPLAY_LOOPBACK_ STATUS 
t 5939 
yee 4 3 ; Define the fields that make up the ERRORS class. 
4 2740 ° 
00000100 4 2741 CLASS = CLSSM_ERR 
Ope 5768 
yee 744 DEF INE_FIELD <LOCAL>, <MB$B_ERTCNT>,1,<ERT_COUNT>,DEC,3,5,1 
C 2745 DEFINE-FIELD | <LOCAL>.<MBSB-ERTMAX>,1.<ERT-MAX>,DEC,5,5,1 
C4 746 DEFINE-FIELD  <LOCAL>.<MBSW-ERRCNT>.1.<NUM_ERRORS>,DEC,6,6,1 
OCC 274 
eon ace 749 -PSECT LOCAL _KEYTABLE,RD,NOWRT ,NOEXE 
OCC 2751 
00000019 cc P36 NUM_LOCAL_DSCRS = KEYWRDVAL ; Save the number of descriptors in the 
Bee P33 ; local report. 
4464 0 OOCC 2755. = LOCAL_KEYTAB ; Save the vector count for 
00000032 00 £36 «LONG KEYWRDVAL*2 ; LIBSLOOKUP_KEY. 
000000 es Ley a . *KEYWROVAL *2 
BS a4 -PSECT LOCAL_BITMAP,RD,WRT,NOEXE 
0 761 ; 
299 ree 3 Save any partial mask in the bitmap and increase the count of the bitmap's 
4464 3 3 length. 
crreeEES SNe gree i ta 
00000000 0004 rey MAP_LENGTH = MAP_LENGTH#1 
004 2768 ~ENBC 
4 4 § 
00000000 5 LOCAL_MAP_LEN = MAP_LENGTH ; Save the number of longwords in the 
2 ak ; local bitmap. 
4 774 LOC_SAVE_BITMAP: ; Reserve enough room for a copy of the 
00000008 04 2775 -BLKL MAP_LENGTH+1 ; local bitmap to be used by the 
0 77 INITIALIZE command. 
8 on 
000022E4 8 -RESTORE_PSECT 
£4 70 
E4 2781 


54 
(9) 


=e 


6 7 
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5) Process the unsolicited data and/or go to step 2. 


783 -SBTTL Main program loop. 

7 *BSECT MAIN, RD ROURT .EX 

786 : 

4 $ 3; FUNCTIONAL DESCRIPTICN: 

7 ; ; This is the main entry point for show cluster. The basic program 
f : flow is as follows: 

7 : : 1) Initialize 

793; $} Capture a snapshot of the SCS database. 

796; ) prepay the report 

795 : 4) Set a timer and wait for expiration or unsolicited data. 
7 : (command input or broadcast message received) 


~~ 
SSS 


ocec 
00000476°EF 09 CB 


sENTRY START,“MCR2,R3,R4,R5,R7,R10,R11> 


BISL #@<MFSM_INIT_FLAG!- 


. - ; Set flags to indicate we're performing 
MFSM_RIP>,MISC_FLAGS 


: initialization and that the full 
3; screen must be drawn. 


0856 630 BSBW INIT ; Initialize. 
JLBC RO,MAIN_ERR ; Branch on error. 
MAIN_LOOP: 
00002247"EF 03 €0 BBS #DVTSV_UNKNOWN,OUT_DEV,-; Set up screen buffer on each pass if 
08 108 3 cutput device is an unknown terminal 
; pe. 
00. =«€1 BBC amr $v WIT SL AG.= ; Otherwise set up screen buffer only 
13 00000476'°EF MISC_FLAGS,20$ : during initialization. 
108: PUSHAQ § ; Set up a buffer for the screen. 


N 
CALLS o).G tTBSSET_BUFFER 


JLBC RO,MAIN_E Branch on error. 


1f 00002247°EF 01 €1 208: BBC #OVTSV_DCRT ,OUT_DEV,350$ ; Orgnen tf output device isn't a 
3 crt. 
$e "EF OF PUSHAL NUM ; Set line Grouting and special greenies 
4B°EF OF PUSHAL LINE _NUM 3; character set in G1 area in B&Ccrt. 
1 B 3 OF PUSHAL GRAPRICS _DSGNTR 3 
00000000 ' GF 3. CFB CALLS 3,G*LIBSPUT_SCREEN 3 
JLBC RO,MAIN_ERR ; Branch on error. 
OF9A = 30 30$: BSBW DISPLAY : Generate the display output. 
JLBC RO,MAIN oe ; Branch on error. 
"GF a CALLS @# guts PUT_BUFFER ; Output the report to the screen. 
bo000% 76" EF t BS anf V_CONT,MISC_FLAGS.- ; Branch if continuous display. | 
asec er OF PUSHAL COL_NUM 3 Otherwise place the cursor at the 
amt 5 OF PUSHAL CMD LINE ; bottom of the screen. 
"GF §602)—=COFB CALLS 43.6 LIBSSET_CURSOR ; 
a4 RO,MAIN_ERR ; Branch on error. 
EXIT_S ; Exit. 


: If input is from a command file, then continute reading commands from the 


4 7 
vou=bo0" Rain progrem loop.” TSE=19E $8:38:07 LECTURE. SRESSMuecstR.man:1 "8%" 38, 


file. Otherwise, go to tleep until a key in pressed, a broadcast message 
comes in, or the interval timer expires. 


40$: BBC #OVTSV_HARD ,OUT_DEV,50$ ; Branch if not hardcopy terminal. 
e 


Set up a buffer for the screen. 


39 coon eretssef 5) 
GF 1 


84% ; 
B45 as tty DSCR 3 
FB 346 CALLS #1,G*LIBSSET_BUFFER ; 
BY JLBC RO,MAIN_ERR ; Branch on error. ' 
1€ 0000 egeg EF 05 E1 : +3 BBC #OVTSV_BISK,IN_DEV,50$ ; Branch if input isn't from a file. 
15°EF FB B9 284 CALLS #0, EXECUTE 3; Go process command input. 
0 2 LBC RO,MAIN_ERR ; Branch on error. 
00 €1 $ C amé $v IRIT_ELAG.= : Branch if initialization not in 
09 00000476'EF : MISC_FLAGS;50$ 3 progress. 
5 {¥4 SEXIT_S ; Otherwise exit. 
7 2855 50S: SSETIMR_S - ; Set the refresh interval timer. 
7 528 EFN=#EVFSV_TIM_FLAG,- ; 
7 2 DAYTIRSDELAY,~ 3 
7 th meicin : 
. JL ° Ld ; Branch on error. 
A 60 BC RO ,MAIN_ERR 8 h 
B61 ; 
$68 ; Wait for expiration of interval timer, or an AST to occur. 
864 
B65 SWFLOR_S - 
508 =40,- 
6 MASK=#EVFSM_TIM_FLAG!EVFSM_AST_FLAG 
re 58 JLBC RO,MAIN_ERR ; Granth on error. 
1 390 SCANTIM_S - 3; Now that we're awake, cancel 
101 871 REQIDT=#1 3 outstanding refresh timer requests. 
; Branch on error. 
‘9 4 JLBC RO,MAIN_ERR B h 
11 B74 SREADEF_S =- ; Read flags to determine which 
11 875 EFN=40,- : condition occured. 
112 287 STATE=FLAG. STATE 
° ; Branch on error. 
: ; g JLBC RO, MAIN_ERR B h 
02 €0 0127 287 BBS #EVE SV AST.FLAG.@ : Branch if AST flag set. 
coheor 2°EF 129 2880 FLAG STATE, 708 
6'EF 5 €0 ; F 881 BBS r§ V_CYCLE ,MISC_FLAGS.-; Oreoes St we're not cycling the 
3 splay. 
FeDB Hy 1 : BRW MAIN_LOOP ; Otherwise start over. 
000021AB ‘EF 135A 2884 60S: INCB SwITCh 3; Toggle switch. 
140 2885 JLBS SWITCH, MAIN _LOOP : Branch if not time to switch displays. 
2419 3 146A 28 § BSBW SWITCH _DISPCAY 3 Otherwise, switch the displays 
FEC2 1 014 5 th MAIN_LOOP ; _and do a screen update. 
1 3 70$: CLREF_S - ; Reset AST flag. 
1 EFN=#EVFSV_AST_FLAG 3 
1 ; JLBC MAIN, ; Branch on error. 
01 eosetres"ee * 15F 289 CMPW ERE BUF .ORSES_ TRAUNSOL IC; Was AST caused by unsolicited data? 
2 16 58 BNEQ 80$ 3; Branch if not. 
00000199°EF 16 01 89 JSB *e LOOP 3; Otherwise go process the command. 
196 B94 JLBC RO, MAIN ERR ; Branch on error. 
17 11 01 B95 BRB mAIN_C ; 
0053 8F OOO00I1FBS*EF 81 0176 2896 80S: CMPW MBX_BUF ,@MSG$_TRMBRDCST ; Was AST caused by terminal broadcast? 


- l 


15-$ 
4-SEP 


Cluster Utility 
fn program loop. 
17F 7 BNEQ maAlN ONT 
: ; ti) ts 
f JLBC =—s- RO, MAIN_ERR 
18D ¢ MAIN_CONT: 
1 BSBW set AST 
1 JLBC =—-_- RO, MAIN_ERR 
4 5 BRw mAIN_LOOP 
199 29 -DSABL LSB 
199 2908 


Epat9be Ss:ae:01 Eetiute. sae 


3 it not, ignore ° 

: Otherwise, go handle broadcast 
; _message. 

; Branch on error. 


Set for next 
Branch on error. 
Start again. 


ESSMUCLSTR.MAR: 1 
AST 


AST. 


7 
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on 
+ 


FUNCTIONAL DESCRIPTION: 
This routine is entered when a unsolicited data AST occurs. It 
examines the type-ahead buffer and then issues a read Q10 with or 
gryyeus @ prompt depending on the character found in the type-ahead 
u ° 


Once the read completes control is passed to DCL_PARSE or to 
the appropriate routine to handle control or escape sequences. 


CALLING SEQUENCE: 

JSB READ_LOOP 
CALLED BY: 

MAIN_LOOP 


-ENABL LSB 


READ_LOOP: 

$Q10w_S - 8 eee the number of characters in the 
CHAN=1 3 byR6 ahead buffer. 
ree Rasgagenne tom. AHDCNT,= 


Pi= 
JLBC 999 
TSTW FYBEARD _BUF 


BNEQU 30$ 
BRW 9998 


30$: CMPB TYPEAHD _BUF +2 ,#ESC 


Branch on error. 

Are there any characters in the type 
ahead buffer? 

Branch if there are. 

Return with status. 


Q000004BD'EF 85 


3 
02st 31 
OOOOO4BF‘EF 91 


Is there an escape, sequence in the 
type ocd buffer 


BREESE FWA WWII NOPONINONNONONIN 2 3 


NOUS AN CO OD NA UE WIN O OD NOU EW OOO NO UNE Ut" 


rH Hoe AAAAA Re eee Pe ee | 


Sean ze ao to te Ho ae He te te NAMIMIMIMIMINE DOSED ODSOSOSSSSSOSOOOSOSSOSOSSOCOOOS 
TRH HHH HHH HMMMMMMoO OO OMOOOOODOOOOOOOOOOOWOVWUO 
or WHI DDVUOONSS MW MADD FEMOSSSOSSSSSS SOS DOOD SOOO OOOO OS 


COOOSOSOSOOOOOOSSOOOOCOOCOOCOOOSOOOOOOOOOoOoOO 


1F 13 BEQL READ_WO_ PROMPT 3; Branch if s 
OOOO004BF‘EF 91 948 CMPB TYPEAHD_BUF +2,ACSI1 3; Is there p. 5 bit escape sequence in 
949 3; _the type eheed buffer? 
15 13 950 BEQL READ_wWO 3; Branch if s 
O00004BF'EF 91 4 CMPB TYPEAHD~ ~BUF eo #CTRLW 3 ts there a sou in the type ahead 
3; bu 
oc 13 9 j BEQL REA i] ; Branch if s 
O000004BF*EF 91 , 3 CMPB TYPERND BUF +2 ACTRLZ 3 ts phere a “25 in the type ahead 
328 JNEQ READ_W_PROMPT :; Branch if not. 
938 READ_WO_PROMPT: 
95 $Q10W_S - 3; kead the command without prompt. 
369 CHAN=IN_CHAN,=- : 
9 FUNC=#10$M_EXTEND! 10$_READVBLK,- 
306 10SB=10SB,= 3 
9 P1=CMD_BUf ,- : 
964 Ped CAD Buf _LEN,- ; 
966 P6O=#TERM_LIST_LEN : 


Kk 7 
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ain program loop. “SEP- 224: LIUTL. HWCLSTR.MAR; (11). 
you 000 it ’ arSE TERS S8:5Ei8F PER UTS Beets free nans1 ee? (i 
A 2 7 JLBC RO,999$ 3; Branch on error. 
1A §=00002242"EF 9 Q 9 § CMPB [93804 acTALZ 3; Did the user type an control-Z? 
..s 9 BNEQ $ ; Branch if not. 
50 ce 9 297 MOVL #SS$_NORMAL ,RO : ingicate normal exit. 
‘3 4 SEXIT_S ; Exit 
98 BF 00002242°EF 91 vt aoe 40$: CMPB 10SB+4 ,#CSI 3 one we user type an eight-bit escape 
3 sequence? 
09 13 O24 3976 BEQL 508 3 @ranch 11 0. 
18 00002242°EF 9 4F 297 CMPB 10SB+4 ,#ESC 3; Did the user type an escape sequence? 
§ 26 44 BNEQ 3; Branch if not. 
145€ 79 50S: BSBw SET SCROLL 3; Set scroll. 
FF 1 5B 29 BRwW LOOP 3 Loop till type ahead buffer is empty. 
17 00002242'EF 1 3 981 60$: CMPB 10SB74 ,#CTRLW 3; Did user type control-wW? 
6 9 § JLBC 3; Error if not. 
00000470'EF 994 9 9 CLRB TOP_CMD_LINE ; Indicate that there is no additional 
8 1 2984 ; _information on the top command Line. 
00002248'EF  O000225C"EF 00 4 4 5 MOVL CMD_LINE,LINE_NUM 3 yA BA line o 
P+ n r © 
217—E 30 t 7C 29 ; BSBw ERASE_TWO_LINES ; Erase any information in the command 
7F 29 : 3; display area. 
7F 2? JLBC RO,999$ ; Branch on error. 
00002348°EF 00 FB 85 2990 CALLS #0,REFRESH 3; Otherwise, refresh the screen. 
: 991 JLBC RO,999$ 3; Branch on error. 
FF BRW READ_LOOP ; Loop t type ahead buffer is empty. 
04 31 3 99 A ill head buffer i 
95 2994 READ_W_PROMPT: 
00002248'EF googeesc® F 00 95 2995 MOVL CMD INE LINE_NUM 3 Set cursor to Line 23, 
06 00002246'EF 1 E1 4 336 BBC #ovT$v OCRT, IN_DEV,70$ ; or if terminal is a DECcrt, 
00002248'EF 6 A 99 INCL LINE_NOM : on Line ‘ 
SSagsstacee ae RGAE 98 TOO: PUSHY COkeTN, ; 
00000000'GF 02 FB O2BA 3000 CALLS #2,G*LIBSSET_CURSOR : 
C1 01 JLBC . 3 Branch on error. 
00000458"EF 01 DO C7 0 MOVL #1,SCROLL_DELAY ; Set the number of refreshes before 
cE 0 3; _the command is scrolled. 
09 eeted f+! 8 cf 04 BLBS CMD_STATUS,808 ; Branch if the last command succeeded. 
1887 D 05 BSBW SCROLL_TwWO 3; Scroll the two command Lines. 
D8 43 JLBC RO, 3; Branch on error. 
00000000'GF 00 FB Of BS 80S: CALLS #0,G*LIBSERASE_LINE ; Erase the command Line. 
E 38 JLBC RO, 3; Branch on error. : 
OC 00002246°EF O01 E€1 Q : 4 BBC #OVTSV_DCRT,IN_DEV,90$ ; sa tp she following input device isn't 
OQOOOI9EA'EF 16 F if JSB +N Beste come : Establish a scrolling region. 
4 \¢ JLBC RO,999$8 : Branch on error. 
FF 14 90$: $Ql0w_S - ; Read the command with prompt. 
FF 15 CHAN=IN_CHAN,=- 
FF 16 FUNC=#10$_READPROMPT ! 10$M_DSABLMBX,- 
FF 1 10S8=10SB8,- 
FF 18 P1=CMD BUF ,- 
FF 301 Pes CMO BUF _LEN,- 
FF 0 P5=#PROMPT+8,- 
FF 1 PG=#PROMPT _LEN 
+f} 4 § JLBC RO,999 ; Branch on error. 
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RSEP=198 93:38:07 YCCTUTE SRESSMUecs TR. man: 1 


CMPB 19s +4, #CTRLZ 3 
BNEQ 0 3 
MOVL #SS$_NORMAL ,RO 3 
SEXIT_S 3 
MOVZWL I0SB+2,CMDO_LINE_DSCR 3 
PUSHAL CMD_LINE_DSCR 3 
PUSHAL CMD“LINE-DSCR : 
CALLS @# Ge TRSUPCASE 3 
CMPB TYPEAHD_BUF +2, #*A/@/ : 
BEQL 1108 ; 


> Use DCL_PARSE 


PUS 


HAL SECOND_CHANCE 

HAL CMD_CI R 

LS #3,G*CLISDCL_PARSE 

S$ RO,110$ $ 
B #CLSM_ERROR,TOP_CMD_LINE; 


8 #CLSM_ERROR,BOT_CMD_LINE: 
130$ ; 


; Use TPARSE to do the actual parsing and 


: Form the descriptor for LIBSTPARSE. 


SHOW_CCUSTERSCOMMAND_TABLE 


Did user type control-Z? 
Branch if not. 

ingicate normal exit. 
Exit 


Save number of characters inh command. 
Convert command Line to uppercase. 


Branch on error. 
Is there a ‘‘a'' in the type ahead 


buffer? 
If so, bypass DCL_PARSE. 


to check for obvious syntax errors. 


Branch if no error. 
Indicate that there is error 
information on both command Lines. 


call the action routines. 


Save the command status for SIGNAL. 


that the last command 
is now scrolled up one. 
and the bottom command Line is blank. 


Indicate that the last command 
is now scrolled up one. 
And the bottom command Line contains 


MOVW CMD_LINE_DSCR,TPARSE BLK+TPASL_STRINGCNT 
MOVAL CMD~BUF,TPARSE_BLK+TPASL_STRINGPTR 
PUSHAL im ; Parse the input Line. 
PUSHAL CMD_STATE 3 
PUSHAL TPARSE put 3 
CALLS #3,G*LIBSTPARSE 3 
MOVL RO,CMD_STATUS 3 
BLBC RO, ; Branch on error. 
MOVB #CLSM_CMD,TOP_CMD_LINE ; Indicate 
3; entered 
CLRB BOT _CMD_LINE 3 
BRB 3; Continue 
MOVB #CLSM_CMD,TOP_CMD_LINE ; 
3; entered 
MOVB #CLSM_ERROR ,BOT_CMD_LINE; 
3 _an error message. 
BSBW SIGNAL ; Output the error. 


: Before looping, make sure ERR_MSGVEC still has the address of TPARSE_BLK+ 


re Hy 
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oop. 


3 TPASL_TOKENCNT. 
; parsed. 


130$: MOVAL TPARSE BLK+TPASL_TOKENCNT,=- 
ERR MSGVEC+12 


BRW 
999$:  RSB 
-DSABL LSB 


as ab 93:37: 8 VAX/VMS Macro v04-00 
46-SEP-1984 23:24:01 CCLIUTL.SRCISHWCLSTR.MAR;1 


This may have changed if an ADD or REMOVE class was just 


: Loop till no more command. 
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00000000'GF_  6C 
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51 000020D3'EF 
53 00992007 Ff 
5 6341 

83 $0 

51 82 1 
Q00020D3"EF 51 
3 0062 _ 51 
000020D3'°EF 
00002003" EF 
00000000'GF 02 
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program loop. 46-SEP-1984 23:24:01 CCLIUTL.SRCISHWCLSTR.MAR;1 (12) | 
40F 94 ;++ 


FUNCTIONAL DESCRIPTION: 


This routine is called when there are parameters or ge ee values 
missing from the input string. When called, DCL_PARSE has already 
set up an arguement List to call LIBSGET_INPUT. The address that 
DCL has prs ded for the return gor ing descriptor is saved and the 
call to LIBSGET_INPUT is made. When the string is returned it is 
concatenated with the original command string so that the whole 
command can be passed to IPARSE. 


CALLING SEQUENCE: 
CALLS SECOND_CHANCE 
CALLED BY: 
CLISDCL_PARSE from READ_W_PROMPT 
INPUTS: 
Number of arguments. 
4 Address of descriptor for string returned. 


) 

+ 

+8 Address of prompt descriptor. 

+12 Address to store length of string returned. 


-ENTRY FE COND CRENEE «HERS AD MA MOD 
MOVL #4,R 


MOVAL (AP)CR3],R2 
CALLG (AP), G*LIBSGET_INPUT 


BLBC .99$ 
MOVZWL CMD_LINE_DSCR,R1 


Get address of DCL's param-routine 
-string descriptor. 

Get missing parameter from user. 

Branch on error. ‘ 

Get number of characters in original 
command Line. 


SOOCCOCOSCOSCOOCOOOSCOOSOSOOSCSOOOOOOOOCOOO OOOO OOOOOOOOooO 
BS Se oe at at at te ee ee a eae a te tee ee ee ee ne 
MUU ESE & AAAI SS | “DOO OCCCOCOCOCOCOCOCOOOOOOOOOOSoOoO 


MOVL cnp FANE DSCR+4 RS ; Get address of command Line. 
MOVAB (RSYCRIJIR ; Get address of Last byte in command. 
MOVB #*A/ /,(R3)+ ; Change <CR> to <SPACE>. 
ADDL3 #1, (R25+,R1 ; Get the length of the additional 
; _input string (plus the space). 
ADDW R1,CMD_LINE_DSCR 3 Save length of combined strings. 
MOVC3 R1,a(R2),(R3) ; Concatenate the two strings. 
PUSHAL CMD_LINE_DSCR 3; Make sure the full Line is uppercase. 
PUSHAL CMD_LINE DSCR : 
CALLS #2,G*STRSUPCASE ; ; 
99$: ET ; Return with status. 


DD DWN INI DW HHP ODO OI TS 0 00 0 0 0 8 8 re re re 8 re re re re re re re re 
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l 
tsp Ses 3 
4 8 146 : FUNCTIONAL DESCRIPTION: 
: hen a broadcast message AST occurs. It 
" S 125 ; secargteah thar the aad on a line in the broadcast message occurs 
458 3150: and then call STORE_MSG to place the broadcast message in a queue 
458 31 : 3 to be output to the terminal. This routine also replaces non- 
$28 1 § : printable characters in the broadcast message with periods (°'."’). 
155 ; 
436 134 3; CALLING SEQUENCE: 
36 136 ; JSB BROCST 
0498 138 ; CALLED BY: 
ee 160 ; MAIN_LOOP 
0458 *161 ; 
bce 8168 
. a > 
oP eer Er BE Seee 188 remy: ROVAL men BG ae ; Get address of broadcast message. 
33 BoooTE CO EE BE 0466 316 MOVZ2WL MBX-BUF+20,R2 ; Get Length of broadcast message. 
i. 9473 189 10$: mova R2,R4 ; Save a copy in R4,R5. 
0470 3169 ; “ ‘ 
: “ascii characters. If a non-ascii character is 
ree 3 : ond seeertene 6 canal Pk Loop until the first carriage return 
0470 3172: following a valid ascii string is found or until the end of the message 
0270 178 3; is found. 
. fe ; Clear valid message flag and <CR> 
- rh 176 ae RY SR-CR FOUND>,= 3 Sound otter valid message flag. 
00000476"EF 00000600 8F 0471 17 : MISC FLAGS : atened ty beeeinadl guubene, 
36 ote 8 rh 158 _— BSou Cine Ck ASCII : alg non-ascii characters. 
ra 8 Star 180 BLBS RO, 708 ; Branch if entire message contains 
handing bebe 181 : 3; valid ascii praresiere, ins 
56 53 01 it 183 CMPL R3,R6 ware ony ascii at all charac 
: h if not. 
oA cb cbs 18s BBS mar : con if the characters found are 
OA €0 0489 3185 BBS #MFSV_CR_FOUND,- ; Branc aryicers rane ore 
35 00000476'EF Be : § MISC_FLAGS ,60$ ~s edhe By apes 
- : i ag. 
0000200 8F C8 0491 31 3 BISL ont oh VA 10 FSS. : Set valid message foun 9 
oe 5 D7 toc 150 30$: DECL Ro z= : Count down characters remaining in the 
38 O19 a3 132 BLSS 70$ : Branch ii we've reached the end of the 
A 19 ; message. ‘ 
. ; Was a carriage return found? 
- fF 3 CA 198 BNEO {hz -# = 3 roast if not. 
09 if 4A 136 BBC #MFSV_VALID_MSG,- 3 Branch ge 0 ceretage return yee been 
oe Seceutre’e CAD 198 LA AS : characters have’ been leon 
ISL #MFSM_CR_FOUND,- ; Indicate a carriage retu 
boo00e ot ad rf 26 ; MISC_FLAGS ; a valid message has been found. 
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Soo 
Row 


1 408: CMPB (83) 47 ; 
BNEQ 5 3 

Bree 58s : 

50$ MOVB #*A/./,(R3)¢ : 
BRB 20$ : 


a 


ol 


60$: MOVQ R4,R2 


STO VOAOOOOAOOOOOOMIOOAO 


SELLER 
PRPS 


ee 
oo 


oO 
Soo 
DOOD LOS DWOOWOWOOODAOWUW™ NOD OOS OAOAOAA SE — 


70$: mMOVa 


POPOPIPIPINIPIPINININYININPININIPYININPINININININININIAMINININININT STITT 


WWII WIN WINIinonononononnononnng 2 2 2 OO 


DNASE WN OS OD NAUN EWN 9 OD NA UNE - OODNAUNE WP 


Sete Ge eee 
o-->)> 
~S 

aon 
od 
won 


SUBL3 R3,R6,R2 
BSB STORE _MSG 
SUBL3 =R2,R4,R2 
MOVL R6,R3 
BRB 10$ 


: The end of the message has been found. 
3 message in the message output queue. 


R4,R2 
BSB STORE _MSG 
movi #1 SCROLL _DELAY 


POPR #*M<R2,R5,R4,R5,RO> 
RSB 


SEP SBe 83:32:07 LOUIE SRESSuuccste.mar:1 "29° (93, 
Was a BELL found? 
Branch not. 


Leave the BELL in the buffer 


and loop. 
; Substitute a ‘’."" for the character. 
; Loop. 


riage return has been found following a string of valid ascii characters 
ating the end of a Line in a multi- 
e Line and store it in the message output queue. 


Line message. Calculate the length 


Restore length and address of full 
message. 
Get length of this Line of the 


ay 
Store this Line in the message output 


queue. 
Get the Length of the remainder of 
the message in R2. 
Get the address of the remainder of 
the message in R35. 
Loop till entire message processed. 


Store the Last remainder of the 


Restore length and address of message. 
Store the message in the message 
output — 

Set the delay counter. 


—— 


ate 
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4E9 324 

4E9 41 344 
| “e9 356 
: FUNCTIONAL DESCRIPTION: 
| Allocate a buffer from the message buffer free queve. Store a Line 
4 from the broadcast message in the buffer and insert the buffer in the 
| r message output queue. 

4 CALLING SEQUENCE: 

rs JSB STORE _MSG 

2 CALLED BY: 

BROCST 


IMPLICIT INPUTS: 


MSG_FRE_QUE contains a queue of buffers allocated and available for use. 
MSG_OUT_QUE contains a queue of broadcast message lines to be output. 


INPUTS: 


R2 contains the Length of the message. 
R35 contains the address of the message. 


NOU EWN 2 ODNAU EWN O ODNAUNE 
Be Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Se Se Ge Ge Se Se Ge 


DPDDPEDP PAPA DP DE Gres & 


IMPLICIT OUTPUTS: 


PRONOUN @ = = 2@OOOCO TT TWMMMMMmMmMmmmmmmemmmmmemmmmmmemmmemmmmm©n 
MMS SP MWS OOMOOVIOGF &LOOOOOOVOOVOVOVOVOOVOOVOVOVOVOOVOVOOOOOOOOOwONO 


04 
04 
04 
8% 
4 
04 
4, 
4 
4 
04 
04 
04 
OcES 3968 
be $ Message Line inserted at end of MSG_OUT_QUE 
04 71 oo 
04 % 
04 73 STORE_MSG: 
O00000000°EF O0000008"FF OF b¢ REMQUE @MSG_FRE_QUE,BUFADR ; Get a from the message buffer free 
3; _ queue. 
16 §=61C¢ 7 BVC 10$ ; Branch if buffer available. 
OQOOOOO00'EF 9F 04 7 PUSHAB BUFADR ; Allocate a new buffer. 
OQ000004"EF 9F 04 7 PUSHAB BUFSIZE 3 
00000000 ° GF 3 FB 05 7 CALLS #2,G*LIBSGET_VM 3 
21 E9 05 80 BLBC RO, ; Branch on error. 
C BB O05 1 10$: PUSHR #*M<R2,R3,R4,R5> 
54 O0000000°EF 0 Ci 05 § ADDL3 #8, BUFADR,R4 ; Get the address to store the message. 
1 5 MOVW oe 3; Store message length in the buffer. 
64 63 5 4 MOVCS R2,(R3),(R4) ; Store the message in the buffer. 
C BA 5 5 POPR #*M<R2,R3,R4,R5> 
00000014"FF 00000000'FF E 3 § INSQUE @BUFADR, SG_OUT_QUE+4 ; ne Day ach into broadcast message 
3 output queue. 
50 01 0 5 $ MOVL #SS$_NORMAL ,RO 
0 2 +4 99$: RSB ; Return with status. 
5 91 


8 
Show Cluster Utilit 15-SEP-1984 :52: AX/VMS Macro V04-00 Pa 
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+ 
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FUNCTIONAL DESCRIPTION: 


This routine performs the allocation and deallocation of variable 
Length buffers used by the SNAPSHOT routine. No more than two 

buffers are ever allocated. Before taking a new snapshot, the 

buffer used for the last snapshot becomes the ‘‘old ffer. This 

is done by simply moving the new buffer descriptor to the old buffer 
descriptors (see SAVE_OLD routine). The previous ‘‘old"’ buffer is then 
deallocated. What are now the ‘‘old’’ buffer descriptors are used to 
determine how much space to allocate for the new buffer based on the 


following: 
OLD New 
n System Blocks n+4 oo Blocks 
x Cluster System Blocks n+4 Cluster System Blocks 
y Path Blocks (n+4)*4 Path Blocks 
z Connection Descriptors (n+4)#44z Connection Descriptors 


Where n,x,y, and z are the number of blocks found by the Last snapshot 
routine. (not the number Last allocated) 


Once the size of the buffer is determined, the buffer is allocated and 
locked in memory alone with the fixed length buffers and other data 
needed by the snapshot routine. A snapshot is then taken. After the 
snapshot, the number of entries of each of the four types shown above 
is determined and saved for the next buffer allocation. 

CALLING SEQUENCE: 
JSB DO_SNAPSHOT 


CALLED BY: 


OOO NOAA WN OOD NA UNE WIN 9 OD NAME WIN 0 OD NOA- BE WN OOD NA NE WIN OOD NOAUNE 


OO an ee nan anand thee hae en aes 


Pea eal ata a heh hh tet hte t rete edibe inedible dh ch db cb ch ch db db ch db dh cbt eh eh cd naddb dh adic eciedh adhd ded 
OD PB LO WHF ON NOM MM MM MMMM MMM MMMM MMM MMMM MMMM men rmMernenenevncrieevicvievicvieviecveevee ver rl ery 


SOOOSSOCOOCOSOOOCSCOOOOOCOGOOOOOOOOOOOOOOOOoOoOoOoOO 


DISPLAY 
OUTPUTS: 
DO_SNAPSHOT : 
5 68 PUSHR #*A<R2,R3,R4,R5> 
000003E4 ‘EF 2 1 108: CMPB #2, BUF _COUNT : Move ue allocated two variable length 
3; buffers? 
08 13 BEQL 208 ; Branch if so. 
OOOOOSES*EF 96 INCB RUE COUNT : Increase count of buffers allocated. 
19 «11 BRB $ 3; Jump to common code. 
19°EF ODF & 208: PUSHAL OLD_VAR_BUF ; Free up the old buffer before we 
ees OF 4 PUSHAL OLD VAR BUF_LEN 3 allocate a new one. 
00000000 ' GF 2 FB 4 CALLS #9 6-1 188 REE_VM : 
5 JLBC RO,99 : Branch on error. 
0208 30 3 30$: BSBW SAVE _OLD ; Replace old descriptors with new 
5 ; descriptors. 


SS : 6 


F 8 
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51 OO0003FB°EF 80 5D MOVW OLD_SB_DSCR+2,R1 ; Get the number of system blocks found 
re ; _in the last snapshot. 
51 o% ag 4 ADDW #4,R1 ; Increase by four for expansion. 
00000029" EF wr ? MOVW R1,SB_DSCR+2 ; ogy Mentor ° gysten blocks that will 
3 n the buffer. 
00000027"EF 51 0060 8F AS 28 5 MULW3 #SBSC_LENGTH,R1,SB_DSCR ; Set the Length of the system block 
3; _bu ‘ 
O00000031"EF 51 BO 057 A] MOVW R1,CSB_DSCR+2 ; Set the number of cluster system 
arr 28 : blocks that will fit in the buffer. 
OOOOO0O2F*EF 51 OOAC BF AS a7 2 MULW3 CC SOSe LL ENSTN.AT © 3 Sot che ceneee of the cluster system 
3 C F. 
51 046 aAa& 0589 ° MULW #4,Ri 3 Get the number of path blocks that 
58C ; will fit in the buffer. 
poooges?'t ;} 8 5 § 6 MOVW R1,PB_DSCR+2 ; Save in descriptor. 
00000037"EF 51 54 BF A a3 rt: MULW3 #PBSC"LENGTH,R1,PB_DSCR 3 bet she Length of the path block 
: buffer. 
51 00000413°EF  A0 4 66 ADDW OLD_COT_DSCR+2,R1 3 w number of connect tone to expand 
3 one per path. 
B 3 51 BO O5A4 68 MOVW R1,CDT_DSCR+2 ; Save in Gescriptor. 
51 O8C BF A4 308 $3 MULW #SHCSC_COT_LENGTH,R1 3 wet the length of the connections 
; bu ‘ 
Sok 51 B60 289 71 MOVW R1,CDOT_DSCR 3; Save in descriptor. 
00000419°EF  QOO003ED'EF 00 058 i MOVL VAR_BUF ,OLD_VAR_BUF : Save address of previous buffer. 
OOOSFS*EF 00 ate 7 MOVL VAR_BUF __LEN,- 3; Save Length of previous buffer. 
421°EF Bete eR OLD_VAR_BUF _LEN 3 
ase 6 : Total the number of bytes needed for the variable length buffers. 
ScD 3378 * 
OOO00SF 5*EF 51 3¢ 5¢D 8 MOVZWL R1,VAR_BUF_LEN ; COT buffer. 
000003 5" EF 00000027"EF AO 304 80 ADDW SB_DSCR,VAR_BUF_LEN : SB buffer. 
sigs eH 00010000 EF 6b 05E1 Hf ADOL *x10000,VAR_BUF_LEN 
000003F 5 EF 0000002F "EF A0 3E¢ 83 408: ADDU C58 _DSCR,VAR_BUF_LEN ; CSB buffer. 
000003F 5°EF se dha A ib 5F9 85 ADDL *x10000,VAR_BUF_LEN 
OOOOO3FS*EF 000000 44 7 oe 6 50$: Apow ° DSCR,VAR_BUF_LEN ; PB buffer. 
OOOOOSFS*EF  O0010000"EF CO eit 38 ADDL *X%10000,VAR_BUF _LEN 
1C 90 ; 
1¢ 91 ; Save the number of entries we can store in each of the buffers. 
61C 38 3; The numbers will be used to determine how many entries were actually 
61C 93 ; stored in each of the buffers. 
Bie 3395 ° 
OOOOOSES*EF  O0000029"EF B80 els 36 60$: MOVW SB_DSCR+2,SB_COUNT ; Number of entrys that can be stored 
6 9 : in the system block buffer. 
OOOOOSE7*EF O0000031"EF 80 7 4 MOVW CSB_DSCR+2,CSB_COUNT ; Number of entrys that can be stored 
§ 9 3; in the cluster system block buffer. 
OOOOOSE9*EF  O00000359"EF B80 06 400 MOVW PB_DSCR+2,PB_COUNT ; Number of entrys that can be stored 
D 3401 3 in the path block buffer. 
OOOOOSEB*EF O0000041°EF B80 rh MOVW CDT_DSCR*2,CDT_COUNT ; Number of entrys that can be stored 
? ret : in the CDOT buffer. 
sae td eH DF 064 405 PUSHAL VAR_BUF ; Allocate some buffer space. 
OOOOSFS*EF ODF O064E 3406 PUSHAL VAR_BUF_LEN 3 
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00 00000048" 
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QO0003ED ‘EF 
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000000 
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FB 28 407 
F209 
dO 6 4 
reds rt 
C1 of 4) 
6 tig 
67C 341 
2C 067C 3414 
684 3415 
68C +18 
2 0606 34) 
8oc 3419 
69C 3420 
69C 3421 
69C 34 § ; 
69C 34 
0 69 424 
C O6A 425 
CT een 3099 
3¢ en 428 
6C1 3429 
¢) C1 3430 
C Q06CD 3431 
C1 06D4 +36 
06E0 34 
06E0 3434 ; 
beep 435 
6E 4 § 3 
DO 0660 34 
sed 438 
DO O6EB 3439 
O6F6 3440 
DO O6F6 3441 
0701 344 
DO 44 44 
70C 3444 
445 445 
70C 344 
Br OC 44 
71 448 
07 449 
7 $20 
7 45 
734 $26 
73A 345 
73A 3454 
73A 3455 
dO rep £2$ 
rb at 
rl ies 
767 461 
767 £36 
767 346 


CALLS 
JLBC 
MOVL 
ADDL3 
movcs 


moves 


MOVL 
MOVZWL 
ADOL3 


MOVZWL 


: Set up buffer 


MOVL 
MOVL 
MOVL 
MOVL 


SLKWSET_ 
JLBC 
SLKWSET_ 
JLBC 
SCMKRNL_ 
MOVL 
SULWSET 
JLBC 
SULWSET_ 


15-SEP-1984 
t=8Ep-19 4 


#2.G°L 1BSGET_VM 
RO,99 
VAR_BUF ,VAR_BUF _ADRS 


VAR_BUF , VAR_BUF _LEN,- 
VAR~BUF _END 


#0, aVAR_BUF ,#0,- 
#VAR_BUF_LEN, aVAR_BUF 


tik BOF LEN F1X_BUF 


VAR_BUF ,SB_DSCR+4 
SB_BSCR 
R17SB_DSCR+4,CSB_DSCR+4 
CSB_DSCR,R1 
R1,CSB_DSCR+4,PB_DSCR+4 
“DSCR,RI 
R17PB_DSCR+4,CDT_DSCR+4 


pointers. 
SB_DSCR+4,SB_BUF _PNTR 
CSB_DSCR+4,CSB_BUF _PNTR 
PB_DSCR+4,PB_BUF _PNTR 
CDT_OSCR+4,CDT_BUF _PNTR 


N=SNAPSHOT 
R_MSGVEC+4 


_ 
m— 
es 


R=SWAP_ADRS 


33:26:04 


AX/VMS Mac 
CLIUTL.SRC 


e 
J 


o V04-00 
SHWCLSTR.MAR; 1 


sath 


Branch on error. 

Save copy of buffer address for 
snapshot routine. 

Calculate address of end of buffer. 


; Zero out the variable length snapshot 


buffers. 


; Zero out the fixed Length snapshot 


Sete te Se Se Se tee 


buffers. 


> Complete the variable buffer descriptors. 


Save address of system block buffer. 
Get Length of system block buffer. 
Save address of cluster system block 


uffer. 
Get length of cluster system block 
buffer. 
Save address of path block buffer. 


Get Length of path block buffer. 
Save address of CDT buffer. 


; ge} ae pointer into system block 
uffer. 
; Initialize pointer into cluster 


systes block buffer. 

Initialize pointer into path block 
buffer. 

Initialize pointer into connection 
descriptor buffer. 


Lock variable Length snapshot buffers 
in memory. 

Branch on error. 

Lock fixed gnagehet buffers and 
snapshot routine in memory. 

Branch on error. 

Capture SCS database. 

Save snapshot status. 

Unlock snapshot buffers and snapshot 
routine pages. 

Brancii on error. 


Unlock variable snapshot buffer pages. 


ee SS - — 


H 8 
‘vo4~b80" Rain program Loop.” RSEASES SSiRE587 ECTIUTE. REGS WUecstR.man:1 "8° fF, 


i JLBC RO,99% 3; Branch on error. 
50 OO00004A1°EF 00 MOVL EAR BEevECes RO 3; Restore snapshot status. 
JLBC 3; Branch on error. 


Calculate the number of entries yet gteres in +3 of the yor table 


; length buffers b -pudtecting the number of empty entries remaining from 
3; the number of entries we started with. 
7 eo 
0000035E5 "EF : A3 are SUBW3 $8 Beer -$B_ COUNT ,- ; Number of system block entries in 
; er 
000003E7°EF F AS § SuBW3 CSB_DSCR+2,CSB_COUNT.- ; Number of cluster system block 
F 7 CSB_DSCR+ ; entries in buffer 
000003E9° EF ’ a3 SuBW3 pe Decne -PB_COUNT,- 3 wuaber of path block entries in 
0000035EB EF F A3 SUBW3 COT_DSC R92 .CDT_COUNT : Number of CDT entries in buffer. 
EF ? COT_DSCR+ : 
00 £4 ; BBSC #MFSv_INIT_ 4 AG,- : Old = new if init pass in progress. 
08 76°EF 484 MISC_FLAGS 
57 00000476'EF ; ‘) 5 70s pec rit od nip. aise _FLAGS.99$; Or if refresh just performed. 
eeeeatedl «4 5" , ae > ; MOVCS ay “BUF _LEN,F1X_BUF ,- : Duplicate the fixed Length buffers so 
58'8F $ ott. UF _LEN,= ; we don't display the data in inverse 
000004a3' EF OL F BUF : video. 
491 ; 
; Check if we got the full data base on this snapshot. If so go display the 
rhs 3 report. Otherwise, loop to expand buffers and try again. 
495 ° 
OOOOOSES*EF  O0000029°EF 81 rh oo, SB_OSCR+2,SB_COUNT : pie we + out of system block buffer? 
; Branc 
OOOOOSE7"EF  O0000031"EF BT £38 CMPW CSB_DSCR+*2,CSB_COUNT 3 ote we run out of clustre system 
3 ock buffer? 
0 JEQLU =-:108 : Branch if so 
OOOOOSE9"EF  OO0000039°EF B81 1 aoe PB_DSCR+2,PB_COUNT 3 Bie we + gh out of path block buffer? 
3 Branc so. 
OOOOOSEB*EF O00000041°EF 81 g CMPW CDT_DSCR+2,CDT_COUNT ; Did we run out of connection 
: descriptor buffer? 
5 JEQLU =:108 ; Branch if so. 
50 % #00 ; MOVL #SS$_NORMAL ,RO ; Indicate success. 
$c. 3 99$ POPR #*M<R2,R3,R4,R5> 
05 9 RSB ; Return with status. 
2 
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FUNCTIONAL DESCRIPTION: 


This row ine performs two functions: 

) When called gr for to taking a snapshot it is used to move the 
newest set of buffer descriptors to the storage area for the 
old buffer descriptors before buildin ’ new set. 

When called after taking a snapshot it is used to duplicate 
the new buffer descriptors so that both sets point to the 
same buffers. This will mean that the CHECK_DIF routine. 
will extract the same data when comparing new and old data. 


CALLING SEQUENCE: 


2 


— 


WR 9 OD NOUNS WIN 9 OD NAUE WN OO ODNOAUNE 


BBE AAA AIA AL ALAIN 2 ne 


JSB SAVE _OLD 
CALLED BY: 

; DO_SNAPSHOT 

537 SAVE_OLD: 
000003F 9° EF 7°EF 5 mova SB_DSCR,OLD_SB_DSCR ; Make descriptor for variable Length 
00000401 ‘EF F°EF 7D 40 35 MOVQ CSB_DSCR,OLB_CSB_DSCR : buffers used in the Last pass point 
eee og tH O0037°EF 7D 46 35 mova PB_OSCR,OLD_PB_DSCR 3 to the ones for this pass so we don't 

T1°EF  QOO000SF EF 3 529 ; = CDT_DSCR,OLS_CBT_DSCR ; display the data in inverse video. 
862 35 


ee 


J 8 
initialization: |” "RSEb=198e S8:38:87 ECCIUTE. SRESSwuccstR.man:1 °°" 


45 -SBTTL Initialization. 
4 -PSECT MAIN tas EXE .NOWRT 


r~ 
+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine performs the following steps for program initialization. 
- Establishes an exit handler. 
- pes tone channels to 1/0 device 
Determines the device type + the 1/0 devices and saves a summary of 


the 
transl bese lopical name bg rope a 


- Saves the system ID of t 0 eee 
= Saves a heb of the display nn aR use by the INITI mise command. 
6 = Parses the DCL command ne ba /REPORT=, /CONTINUOUS, /INTERVAL=, 
6 OUTPUT= and sets up gccordin 
6 - Executes the startup SHEER file. 
- Establishes a control-C handler 
- Sets the first AST for uneol te1tee data. 
- If input Py from a terminal: 
- a aelibes is associated with the terminal. 
6 - New terminal characteristics are set up after saving the old 
ones for restoration upon exit 
- Screen is cleared if terminal is a scope. 
CALLING SEQUENCE: 
JSB INIT 
CALLED BY: 
START 
OUTPUTS: 
8 


IN pty. Ay DEV Set to reflect the 1/0 device type. 

Save of R_BOF Contains the original terminal characteristics. 
Sip Receives the system ID of the local system. 

f| SAVE BIT Receives a copy of the cluster bitmap, 

LOC_SAVE BL IMAP Reveives a copy of the local bitmap. 


RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 


INIT: PUSHR #*M<R2,R3,R4,R5,R6,R7> 


OSS Rlcichohonohotohoke 


AAO 
AAO 


SOCLEMNS : spent tas : Declare exit handler. 
R098 


OOFC 8F 6B 


1 

g 

-P 

$ ; Setup an exit handler. 
: 

0 

1 


~O 
Wn 
an 
oo 


JLBC : Branch on error. 


kK 8 
TR h i “SEP-1984 25:52: AX/ 
s fesSbeser gett TEREEISEL SECM YAMINE.SESBCGHE ea" 


7 
7 § SGETJPI_S - ; Get mask of the user's current 
7 Dy Seg LIST 3; privileges. 
9 5 JLBC 3; Branch on error. 
00002230'EF £0 ss é ; BBS SERVEN CHEAM. -CUR_PRIV.@; rat if _woor has change mode KERNEL 
P ivi 
50 00002804 8F 9 9 ? $ MOVL #SS$_NOCMKRNL ,RO 3 ih agree > SE KRNL required. 
066E ° ! BRw 99$ 3 t with error status. 
A $1 4$: $GETDVI_S = 3; Get the input device characteristics. 
A } DEVNAM=IN_DEV_NAME,=- 3 
A 14 ITMLST=GET_LIST 3 
£2 a1? JLBC RO,99$ ; Branch on error. 
00002208'EF 42 +4 bet ei? CMPB $ECS_ TERR DEVICE CLASS ; js input ée device a terminal? 
7B 00002246'EF be E2 44 $13 BBSS #OVTSV_DISK, IN_DEV,30$ : Input is tren a disk file. 
00009936" EF DF O8DE r 1 5$: PUSHAL MBXCHAN ; Assign a channel to the terminal and 
4*EF DF OBES ¢ PUSHAL IN CHAN : associate a mailbox with it. 
air BOG sp USA 8 : 
QOQOODE'EF DF Osr 5 PUSHAL IN_DEV_NAME : 
00000000 ' GF Fig 44 666 CALLS #57G*LTBSASN_WTH_MBX : 
090 6 JLBC RO,99$ ; Branch on error. 
0909 3659 ; 
844 ? 9; : Check the input terminal characteristics and summarize in IN_DEV. 
0000221C*EF 20000000 of o O34 ? § : Bite #TT2$M_DECCRT ,DEVDEPEND2; Js terminet ° DECcrt? 
00002246'EF ! Lt) 0916 6 4 BiB #OVTSM_DCRT, IN_DEV Set vr100 bit. a! 
: Cc e. 
0000220 "EF 00000040 BF O$ OFIF S656 78: BITL #DIS_VISH.DEVICE_TYPE Is terminal VI5e~ compatable? 
00002246'EF 01 9 i ? 3 ty #OVTSM_VT52, IN_DEV ba Wise bit.” aia 
00002218"EF 00001000 0 9 640 108: BITL #TTSM_SCOPE ,DEVDEPEND Is the terminal some type of scope? 
1 94 641 BEQL 208 : Branch if not 
00002246'EF af 3 94 266 BISB #OVTSM_VT52,IN_DEV : Treat terminal as if its a VT52. 
00002246'EF 8 8 094 64 BISB #OVTSM_ “UNKNOWN, IN_DEV : Indicate actual type is unknown. 
07 11 095 644 BRB 30 : Jump to common code. 
00002246"EF 04 88 095 oh? 20$: BISB #OVTSM_HARD, IN_DEV : Assume terminal is some type of 
95 rf} 3; hardcopy device. 
389 ech ; 
959 3649 Get the qutput terminal characteristics and summarize in OUT_DEV. Save 
959 3650 : @ copy of the characteristics for restoration upon exit. Set new 
229 o3¢ : characteristics NOBRDCST and BRDCSTMBX. 
959 3658 ° 
0000004B'EF DF 0959 3654 30$: PUSHAL 9 TPUT ovat ; Was /OUTPUT specified? 
00000000 ' GF 01 F 95F $32 CALLS G CCl PRESENT 3 
1250 € 208 228 BLBS RO: 1$ : Branch if so. 
00000101"EF 28 0969 3658 MOVCS NULL_DEV_NAME,- ; Otherwise, NL: is the output device. 
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109°EF F 5 NULL te NAME +8, = 3 
boo00ze«" EF 4 QutF ILE-SPEC 3 
F611 as BRB ; Branch to common code. 
Han 84 DF 0978 31$: PUSHAL RET_BUF_DSCR ; Get the output qualifier. 
IDAS'EF OF ! 968 PUSHAL GET- VAL, ae 3 
0 onse'Fe DF 665 PUSHAL OUTPU BUAL 3 
"GF 3. CFB D 096 CALLS aN get cC! GET_VALUE ; 
| re JLBC RO,99$ ; Branch on error. 
00001DB3'°EF 0001DAB ‘EF 28 099A ees MOVCS RET_BUF_DSCR,RET_BUF,- ; Store the output file string for 
0000224 "EF As 670 OUT“FILE_SPEC + SPARSE. 
SAA are 32$: SPARSE FAB = OUTFAB 3; Parse the filespec. 
7 367 JLBC 3; Branch on erro 
98D 3674 JBS #0EVSV : Branch if netuerh devtes. 
98D 3675 SUTE ABST ABEL Dev.57$ =; 
9CC o76 JBC #DEV$V_T ; Branch if output device isn't a 
9CC 367 OUT F ABE ABEL DEV,55$ =; termina 
000001D8"EF 98 09DB 678 MOVZBW OUTN HBL OCKTNAM$T_DVI,-:; Build a wdoscripter for GETDVI. 
QOOIDAB'ER 28 O9E6 3680 MOVES RET“BUF~DSCR 
90000109 EF a3et ee QUTRA r BLOCK SNAMST -DVI+1,~ : 
O9F6 36 : $GETDVI_S =" : Get the output device characteristics. 
O9F6 3684 “DEVNAM=RET BUF _DSCR,=- 3 
Bere 685 ETAL St=GET_L LIST 3 
06 50 €E8 OAI14 3686 33S: BLBS RO, 34$ : Branch if successful. 
50 (01 pO OA17 3687 MOVL  #SS$_NORMAL,RO : Otherwise treat it like a file. 
0123 1 Hs ° : BRW 55$ ~ s 
00002208°EF 42 BF 91 pale 690 34$: CMPB #DOCS_TERM,DEVICE_CLASS ; Is output device a terminal? 
pA 3 23) JNEQ 55$ 3; Branch if not. 
A2A 369 SASSIGN_S - ; Assign a channel to the output device. 
OA2ZA 3694 “DEVNAM=OUT_DEV NAME ,- é 
OA2A 695 CHAN=0UT _CRAN : 
wit $36 JLBC RO,99$ 3; Branch on error. 
0000221C*EF 20000000 of 3 As} $38 pitt oT 12Sn_ DECCRT, DEVDEPEND2; Js output note a DECcrt? 
00002247°EF 02 88 ns 700 BISB § #DVISM_DCRT,OUT_DEV : Set VT100 b 
0000221C "EF 8000000 BF OD Bary 4 1 BITL #TT2$M_AVO, DEVDEPEND2 : bore the Dece cert have the advanced 
4313 babe 3908 BEQL «508 3 + aronch 11 ne 
00002247"EF 10 7 A66 3704 BISB #OVTSM_AVO. CUI _DEV : Set <deances video bit. 
» 1 A6D 3705 BRB 50$ ; Jump to common code 
0000220C*EF 00000040 4 13 rn 4 4 ] 35$: Bit #OTS_VTSX,DEVICE_TYPE : 4s output device VT52 compatable? 
00002247"EF 01 88 Oa7c 37 : BISB  #0VT$M_VT52,0UT_DEV > Set VT52 bit. 
4 11 OA 3 7 BRB 3; Jump to common code. 
00002218"EF 00001000 BF 03 ns ey 40$: BITL #TTSM_SCOPE ,DEVDEPEND : Scope? device some type of 
19 15 O90 $712 BEQL «458 S pranch {f no 
000088 7°EF 1 HY Ad 71 BISB #OVTISM_VT52,0UT_DEV ; Treat output ap Sa ss if its a vT52. 
00002247'EF 8 Ad 714 BISB #OVTSM “UNKNOWN, OUT_DEV ; Indicate actual type Ss unknown. 
7 11 QOAAO 3715 BRB 50$ ; Jump to common code. 
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00000 
00002 


00000080 8F 
00000476 'EF 
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00000274 ‘EF 
02238'EF 


000 
00000000°GF 02 


24 
00002247°EF 
02222°EF nee F 
00002260°EF 00000044 8F 


0000225C*EF  O00002260'EF 01 


Show Cl 
Initial 


i 


ster Utility 
zation. 


88 = 716 45$: 


4 
@ 
SNAQAMUININE 


S 
@ 
co 


FFA OOOOCOCOCO 
OOmmn OWS Coco co coco cow: 


Stttte ttt ttt tt td 


Mao 


> 

m 

@ 
SSN 


Off Oood ow 
—~ 
o 


55$: 
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BISB 


MOVB 
MOVB 
MOVW 


MOVZBL 


oes at 9 93:37:08 penivas Macro V04-00 


4-SEP-19 


4 


#OVTSM_HARD ,OUT DEV 


DEVICE_CLASS,- 
SAVE_CRAR_BUF 
DEVICE_TYPE,- 
SAVE_CRAR_BUF +1 
BUFFER SIZE,< 


SAVE_CRAR_BUF +2 


ad 


DEVDEPEND+3,LAST_LINE 


CLIUTL.SRCIJSHWCLSTR.MAR; 1 
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; Assume output device is some type of 


hardcopy device. 


; Build the characteristics buffer for setmode so that the terminal 
characteristics can be restored. 


Store the device class. 
Store the device type. 
Store the terminal width. 


; Save the number of the Last Line 


(bottom command Line) on the 
terminal. 


new terminal characteristics for output device. 


MOVQ 
MOVL 


BISL 


BICL 
BISL 


$Q10W_S 


SAVE _CHAR_BUF ,- 


NEW CHAR BUF 


DEVBEPEND2,- 
NEW_CHAR_BUF +8 


#TTSM_NOBRDCST!TTSM 
NEW_CRAR_BUF +4 


RO,99$ 


#MFSM_NEW_CHAR,- 


MISC_FLAGS 
60$ 
OUT_EXP_DSCR 
SET CHA 


” GOL IBSSET_OUTPUT 
RO,99 


#DVTSM_DISK!DVTSM_HARD,- 


T 
4} 32-5 
#68, 


SCREEN WIDTH 
LAST_LINE 


#1, LAST_LINE ,CMD_LINE 


SiGe te Oe 


ESCAPE ,=- 
; Set no broadcast bit and escape bit 


Sete Se Ge Ge Ge Ge Se 


Get a copy of the terminal 
characteristics for new setup. 


in terminal characteristics. 
Clear wrap bit in terminal 
characteristics. 


Set broadcast mailbox bit in extended 


terminal characteristics. 
Set new characteristics. 


Branch on error. f 
Indicate that the terminal 


characteristics have been changed. 


Jump to common code. 
Redirect output to file. 


Branch on error. 
Output is to a file. 


Assume 132 columns. 
Assume 68 Lines. 


Save the number of the next-to-last 


Line (top command Line) on the 


Se _ ——_-— Se - a 
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773 3 terminal. 
00002260°EF 0 C3 0B 774 SUBL3 #2,LAST_LINE,- 3; Save the number of the last Line on 
0002258'E 8 775 LAST_DATA_LINE 3; the terminal to be used to display 
B8C ore 3 data. 
B8C 377 
B8C 78 ; 
B8C 3779 ; Save local system ID in LOCSYSID. 
ght at 
00000005 "EF 00000000 ' GF D 782 63$: MOVL G*SCS$GB_SYSTEMID,LOCSYSID 
00000009" EF 00000004 ' GF BS ey i MOVW G*SCS$GB-SYSTEMID+4 ,LOCSYSID+4 
A 785 ; 
OBA 7? § 3; Get the local node name. 
OBA 4 3 
BA 788 
BA 789 SCMKRNL_S - 
OBA2 3790 ROUT IN=GET_NODE_NAME 
B 791 
BB) Ag: 3 
oad ay 3; Process command Line qualifier /REPORT=. 
GOOO001B'EF DF 0BB1 795 PUSHAL REPORT_QUAL 3; Was the report name specified? 
00000000'GF 01 FB OBB 796 CALLS #1,G*CCISPRESENT : 
OBBE 3797 JLBC 3; If not default to cluster report. 
QOOIDA3'EF DF O0BC4 3798 PUSHAL GET VAL_DSCR : Get the report name. 
Borer” fe DF OBC 799 PUSHAL esd: QUAL 3 
00000000'GF 02 FB OBDO 3800 CALLS #2,G*CCI$GET_VALUE 3 
OBD7 3801 JLBC R 3; Default to cluster report on error. 
4C 8F QOOO01DBS'EF 91 OBDD one CMPB BR t_BUF ,#*A/L/ ; Local report requested? 
25 13 OBES 380 BEQL 3 Yes 90 setup for the local report. 
4€43 8F OO001DB3"EF 81 OBE? 3804 CMPW RET_BUF ,#*A/CL/ ; Cluster report requested? 
m2 oe oo 805 BEQL : Yes, go setup for the cluster report. 
5943 BF 00001DB3'EF B1 OBF 806 CMPW RET_BUF ,#*A/CY/ $ /REPO T=CYCLE specified? 
09 is OBFB 3807 BNEQ ; Branch if not. t 
30 C8 OBFD 3808 BISL #MFSM_CONT!MFSM_CYCLE.- ; Set cycle and continuous display 
00000476'EF OBF F 809 MISC_FLAGS : _ flags. ¢ : 
4D 11 O0CO04 3810 BRB 80$ ; Set up to start cycling with the 
BcR6 811 ; cluster report. 
50 14 0 C06 aig 72$: MOVL #SS$_BADPARAM,RO ; Exit status is bad parameter value. 
0336 1 0CO9 381 BRW MAIN_ERR 3s Exit. 
0cOoCc 814 
O0cOC 15 
0cOoCc 1$ 3 
ococ 17 ; Setup for the local report. 
OCOE S819 | 
00370006 8F »D0 660 | 0 75$: MOVL #CLSSM_ALL_SYS!CLS$M_CSB,- 
00002204 'EF C1 1 L AVE 
00000001 "EF 00000180 8F dO C1 § MOVL #CLSSA_LPRT!CLSSM_ERR,CLASS_SELECT 
1 BA OC ¢ BICB #RPTSM_CLSTR,- ; Set current report to local. 
00000000' EF C 4 CURRENT REPORT 
00002274"EF OO0000000'EF ODE $ . 5 MOVAL LOCAL_KEYTAB,KEYTAB_ADRS; Store address of local status keyword 
3 table. 
00002264 ‘EF OOOOOOO'EF DE O0C34 § MOVAL LOCAL_TABLE,ADRS TABLE ; Store address of local address table. 
00002268 'EF OO'EF DE OC3F 8 MOVAL LOCAL BITMAP,BITMAP_ADRS: Store address of local bitmap. 
Oo00226c'eF 00 dO OSA 9 MOVL  #LOCAC_MAP_LEN,MAP_CEN ; Store Length of local bitmap. 
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Q0000029"EF ODF 
00000000 * GF >: vo 
0750 €9 
00000476°EF 10 C8 
QOO0003B°EF ODF 
00000000 ° GF 2 FB 
650 €9 

00000476°EF 10 C8 
QOOOIDAB*EF OF 
QOOOIDAS"EF ODF 
QOO0003B°EF ODF 
00000000'GF O03 FB 
QOOOZTAC'EF ODF 
QOOO1DBS*EF OF 

4 Nt dal DD 

*GF ; 
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000021AC "EF 
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57 O0000000°EF DE 
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; Branch to common code. 


Set current report to clusters. 
wtere address of cluster keyword 
ta 


e. 
Store address of cluster table. 
Store address of cluster bitmap. 


Store length of cluster bitmap. 


Was /CONTINUOUS specified? 


Branch if not 
Set continuous display flag. 


Was /INTERVAL specified? 


Branch if not. 
Set continuous display flag. 
Get the time string. 


Branch on error. 
Convert the desired number of seconds 
to a longword. 


Branch on error. 
Convert the number of seconds to 
binary time, 


Set up scrolling region. 


INITIALIZE command. 


8 
15-SEP-1984 23:52: 
46-SEP-1984 33:32:08 
? B&B 85$ 
$ : Setup for the cluster report. 
s o 
$ 80S: MOVL &#CLSSM_ALL_SYS!CLSS$M_CSB,- 
CLASS. SELEC 
3 MOVL #CLSSA_LPRT!CLSSM_ERR,=- 
Cota SAVE 
40 BISB #RPTSA _CLSTR,- : 
4) CURRENT_REPORT ; 
4g MOVAL CLUSTER“KEYTAB, - ; 
KEYTAB_AOR ; 
44 MOVAL CLUSTER_TABLE ,ADRS_TABLE; 
49 MOVAL CLUSTER xe! TMAP,= ; 
i MOVL #CLUSTER_MAP_LEN,MAP_ LEN: 
49 ; 
39 3: Check for /CONTINUOUS. 
5 6 
3g 85S: PUSHAL CONTINUOUS QUAL : 
54 CALLS #1,G*CLISPRESENT : 
55 BLBC 0; 3 
36 BISL  #MFSM_CONT.MISC_FLAGS  ; 
58 ; 
2 3 Check for /INTERVAL. 
61° 
6¢ 87$: PUSHAL INTERVAL_QUAL : 
6 CALLS #1,G*CLISPRESENT : 
64 BLBC ; 
65 BISL nd 88 CONT .MISC_FLAGS : 
66 PUSHAL RET_BOF OSCR : 
6 PUSHAL GET~VAL : 
68 PUSHAL INTERVAC_Q 3 
69 CALLS #3 GeCLISGET. VALUE 3 
70 JLBC RO,99$ 3 
71 PUSHAL DELAY : 
7 PUSHAL RET_BUF ; 
7 PUSHL RET BUF_DSCR : 
7% CALLS #3,G*LIGSCVT_DTB : 
75 JLBC 3=—_—saRO0, 998. : 
7 EMUL #-{10000000,DELAY,#0,- : 
DELAY : 
i 88$ JSB SET_REGION_DATA : 
1s 
§ 3; Save a copy of the cluster bitmap for 
4 o 
5 90$: MOVL #CLUSTER_MAP_LEN,RS 
6 MOVAL CLUSTER_BITMAP,R? 


Page 7 
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; Clear the terminals screen. 


BSBW CLEAR SCREEN ; Clear the screen. 
JLBC RO,998 


1660 
; Branch on error. 


> Translate SHOW_CLUSTERSINIT. If the logical name is defined then go execute 
3 the initialization file. 


ct 9 
| SHWCLSTR ter Utilit 15-SEP-1984 23:52: AX/VMS Macro v04-00 Pa 77 
you-b00 mish 7 arSEE SRS 83:32:8% FEMURS Base OtsOe mars1 28° 73) 
56 vena * Sadi F CL_SAVE_BITMAP,R6 
6 i : 91$: MOVL (R7)¢+ che) 
FA 55 a R591 
3 
35 3; Save a copy of the local ports bitmap for INITIALIZE command. 
5 00 94 * MOVL § #LOCAL_MAP_LEN,RS 
57 900000" EF 95 MOVAL LOCAL_BITMAP,R? 
6 004'EF 36 MOVAL Log SAVE_BITMAP,R6 
7 97 92$: MOVL (R7T+, (RB)+ 
FA 55 38 SOBGEQ R5,92$ 
0 
902 ; Set the initial number of proses blocks and connections that can be handled 
9035 ; by the snapshot routine. These numbers will be used in the MAIN_LOOP routine 
904 ; to determine the size of buffers to allocate for system blocks and 
905 ; connections. The size of buffers for circuits and cluster system blocks will 
3 3; be derived from the number of system blocks. 
908 ; The initial number of connections is set to the number of connections allowed 
909 ; by the SYSGEN SCSCONNCNT parameter but not to exceed the parameter default 
910 ; (DEF_CONNCNT). This is to protect from the possibility of the parameter 
4 3; being set much higher than necessary. (maximum is 32k) 
913 ; The initial number of system blocks is set to 12 which is in affect 
914 ; the same as setting it to 16 because it will be increased by 4 on the first 
4} 3 pass to allow for expansion. 
00000000 ' GF 91 CMPW G*SCS$GW_CDTCNT,- ; Are there less connections allowed 
12 91 #DEF_CONRCNT 3 on this system then there normally 
91 ; _are by default? 
09 9 BLSSU 93% :; Branch if so. 
00000041"EF 12 9 MOV #DEF_CONNCNT,CDT_DSCR+2 ; Otherwise take the default. 
0B 9 BRB 948 ; Jump to common code. 
si 4 oe i 93$: MOV 5 5° peee Cote «= 3; Store the actual number allowed. 
00000029"EF OC 925 94$: MOVW #127SB_DSCR+2 ; Fake the number of known system 
9 ; blocks. This will be expanded to 
; : 16 on the first pass. 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
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94 STRNLOG_S - : Translate the logical name 
94 LOGNAM=INIT_NAME ,- ; SHOW _CLUSTERSINIT. 

94 RSLLEN=TRAN_DSCR,- : 

94 RSLBUF=TRAN_DSCR : 
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50 00000629 8F % p95 3944 CMPL S558 MOTRAN.RO ; Was SHOW_CLUSTERSINIT defined? 
1 D9C 3945 BEQL S : Branch if not. 
1°EF DE OD9 94 L F_EXT,= 3; Store default file extention in FAB. 
C'EF DAG 394 INF AB+F ABSL_DNA ; 
90 OQDAI 2e8 MOVB F_EXT 3 ~ ; Store Length of default extention in 
S1°EF D 9% INF AB+F ABSB_ON ; ' 
00001215 ‘EF FB ODB 329 CALLS @# BRE CUTE : Execute initialization file. 
dB 9 JLBC ; Branch on error. 
90000005 EF DE 008 93¢ MOVAL DEF_NAME2,- t Store default filename in FAB. 
eeaed + oc 9 INF AB+F ABSL_DNA ; 
6 90 ODC 954 MOVB #DEF _NAME2 CEN,- 3; Store Length of default filename in 
00000051 "EF DCA 939 INF AB+F ABSB_DNS > FAB. 
00000059 EF OF DCF 939 95$: PUSHAL ENDING oy ; Was /ENDING specified? 
00000000 ' GF 1 =F DDS 938 CALLS #1 .G°cCI PRESENT 3 
55 E poc 395 BLBC 6$ ; Branch if not. 
QOOOIDAB'EF DF ODDF 3960 PUSHAL RET_BUF_DSCR : Get the time string. 
00001DA3'EF OF DES 961 PUSHAL GET_VAL_DSCR : 
0000005 bs OF DEB 386 PUSHAL ENDING QUAL ; 
00000000 ‘ GF 3. FB ODF1 396 CALLS #3 -GOCCISGET VALUE s 
pore M44 JLBC RO,99$ 3; Branch on error. 
000021B4'EF 7F ODFE Bee PUSHAQ A_TIME ; Convert the time string to binary. 
00001 DAB‘ EF DF OE04 96 PUSHAL a BUF _DSCR Hy 
00000000'°GF 02 FB OEDA 3968 CALLS #2,G*LIGSCVT_TIME 3 
pet} 34 JLBC RO,998 3; Branch on error. 
0E17 3971 SSETIMR_S - ; Set the timer to force a control-C 
0E17 397 DAYTIM = A_TIME,=- ; when it expires. 
E17 97 ASTADR = CATRLC_AST_DEL ; 
Oe $4 are JLBC RO,99$ ; Branch on error. 
00000067"EF ODF OE34 376 96$: PUSHAL BEGIN_QUAL 3; Was /BEGINNING specified? 
00000000 ' GF we E3A 397 CALLS #1,G*CLISPRESENT 3 
05 50 € E41 378 BLBS R ; Branch if so. 
50 01 DO OE&44 397 MOVL #SS$_NORMAL ,RO ; Otherwise, make sure we don't 
£47 oe 3 consider the error fatal. 
79 3611 «OE47 3981 BRB 9758 ; Branch to common, 
‘EF OF 49 388 97$: PUSHAL RET_BUF_DSCR ; Get the time string. 
00001DA35"EF OF ESF 9 PUSHAL GET _VAL_DSCR $ 
00 ‘EF DF OE55 3984 PUSHAL eccrN QOAL : 
00000000'GF 03 FB OES 985 CALLS #3,G*CLISGET_VALUE 3 
56 > § JLBC RO,99$ ; Branch on error. 
000021B4'EF 7F OE6 988 PUSHAQ A_TIME ; Convert the time string to binary. 
00001DAB ‘EF OF EGF 989 PUSHAL RET_BUF_DSCR 3 
*GF 2 FB OE74 CALLS @# GOL IGSCVT TIME 3 
eco 64 JLBC RO,99$ 3; Branch on error. 
£81 399 SSCHDWK_S - ; Leave a wakeup call. 
£81 994 paviae = A_TIME 3 
7F 50 =O«ED 34] 1644 BLBC RO,99$ ; Branch on error. 
QOOOIDAB'EF DE OE97 399 MOVAL RET_BUF _DSCR,- ; Save address of time string in error 
00004A9' EF E 99 ERR-MSGUEC+12 ; _message vector. 2 le 
00000489" EF 0° 8F 90 EA 99 MOVL #SHOWS_HIBER,CMD_STATUS ; Tell the user we're going into 
O6AD EAD 4000 BSBW SIGNAL : hibernation. 
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DE : MOVAL be Bo cut 3 a error message vector to 
” ; no ° 
QOODOGAS"EF  OO0004CF EF E Eee *aSevecess ; 
: SHIBER_S : Off to sleep... 
03 000022466'EF 05 qi 975$: BBC #OVTSV_DISK,IN_DEV,98$ ; Branch if input isn't from a file. 
0049 1 O€ BRW 99$ ; And finish up. 
Set up control-c handler. 
98$: $010W_S ae ; Setup a control-C ast handler. 


AN=IN_CHAN, = 
FUNC=#10$_ SETMODE! 108_ cinucast, ° 
PI=CNTRLC_AST_D 


MOVZWL 9 SCREEN_WIDTH, VALUE 
CALLS #0,SET-SCREEN 


BLBC RO,99$ 


Save number of columns for eee "°° 
Set the screen width to 80 o 

column mode. 
Branch on error. 


Set up for first AST. 


SCLREF_S = ; Clear ast event flag. 
EFN=#EVFSV_AST_FLAG 
03 5 3 BLBC RO,99$ ; Branch on erro 
062 0 BSBW SET_AST : Set first AST for unsolicited data. 


COFC 8F 


3 


POPR #*M<R2,R3,R4,R5,R6,R7> 
RSB ; Return with status. 
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FUNCTIONAL DESCRIPTION: 

This routine oper pee the nese name of the local system from the local 


system block and stores it he NODE NAME DSCR. The nodename is then used 
by the GET_HEADER routine to display the nodename in the header. 


~ 


Nodename stored in NODE_NAME_DSCR. 
RETURN STATUS: 


4 
5 
28 CALLING SEQUENCE: 
4 CALLS #0,GET_NODE_NAME 
CALLED BY: 
§ INIT 
22 INPUTS: 
2$ Nodename stored in the local system block. 
38 OUTPUTS: 
5 
0 
4 
5 


o 


None. 


Ss i Di i Di Die Di Bi i i Di i Ri Ri Re i Bs Rs De es Re Rs es es es Rs se eB eB Re i Be Be eB es | 


003¢ : $3 -ENTRY GET_NODE_NAME ,“M<R2,R3,R4,R5> 
0; 
0 Aa! : Get the number of bytes in the nodename. 

00000044 90 8 ’ MOVB G*SCS$GA_LOCALSB+SB$T_NODENAME ,- 
00000448 ' EF 0 a : NODE _NAME_DSCR 

O76 : Store the node name in the node name descriptor. 
00000448°EF 28 378 movCc3 rat: NAME _DSCR,- 
00000045 ' GF 7 SCS$GA_COCALSB+SBS$T_NODENAME +1, - 
00000450'°EF 0 ? NODE N NAME 

04 8 § RET 
0 
084 
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-SBTTL Exit handler. 
This is the entry point for the exit routine cotent tented Geers 
y 


initialization. It simply moves the status stored in STAT 
the SEXIT_S to RO and falls through to the MAIN_ERR routine. 


0000 
50 00000491"EF 00 


ENTRY EXIT_RTN,“M<> 
MOVL STATUS ,RO ; Get the exit status. 


$333 
+ 
> 


Be Ss Se Ge Se Ge Fe Se Se Ge Se Ge Se Se Ge Se Be Ge Se Se Ge Ge Se 


FUNCTIONAL DESCRIPTION: 
This routine handles all cleanup before the program exits. It restores 
the original terminal characteristics, restores the original screen 
width, and deassigns the channels assigned to the terminal and mailbox. 
An error encountered while trying to do the cleanup is considered fatal 
and the image immediately exits. 

INPUTS: 
Error status in RO. 

IMPLICIT OUTPUTS: 
Error message output to terminal if status in RO is not success. 

RETURN STATUS: 


Error status in RO. 


HO ss 


PRO ONO NE WIN 2 OOD NAME WIN $$ 9 ODNOA UNE 0 ODNO UE WO 


MAIN_ERR: 
02 «8 BISL #MFSM_EXIT_FLAG,=- ; Indicate exit in progress. 
992 rhea 1 MISC_FLAGS 3 
00002247'EF 83 1 BBC SOVTSV_DISK OUT _DEV.~ ; Branch if 1/0 device is a terminal. 
0094 + ‘31 BRw MAIN_EXIT ; Otherwise, skip the following. 
QOOOO4A1"EF 50 00 5$ MOVL RO,ERR_MSGVEC+4 ; Save status for error message. 
$Q10W_S - ; Make sure graphics mode is off. 
CHAN=OUT_CHAN,=- 
FUNC=#108_WRITEVBLK,- 
Pi=#*A//,= 
pene) 
JLBC RO,MAIN_EXIT ; Branch on error. 


MOVZWL SAVE_CHAR_BUF +2, VALUE 
CALLS o0.stt SCREEN Reset the screen width. 
RO,MAIR_EXIT Branch on error. 


BSBW SET_REGION_FULL ; Reset the scrolling region to use the 
; full screen. (Added for foreign 
3; terminals emulating V1T100s). 


Get the original screen width. 


QOOOOS4F*EF O0002216°EF  3¢ 
OOOOOFBA*EF 00 FB 


OA2D 8630 


PEPER EEE P EEE EEE E EEE EEE EEE EEE EEE 


aa a ak as a a a at a a a = — a sd = as © 1s ss 


ane 
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any message. 


FAI 
13 OOOOO4AI'EF €E9 Al BLSC ERR_MSGVEC+4,10$ i; Don’t clear the screen if exiting 

A ; _with error status. 

000004 76'EF E1 A BBC #MFSV_CONT,MISC_FLAGS,- ; Don't clear the screen if display 
AF 10$ ; _is not in continuous update mode. 

1410 30 8 BSBW CLEAR_ SCREEN ; Clear the screen. 
B JLBC RO ,MAIN_EXIT ; Branch on error. 
00. =o 4 BRB 10$ ; Exit status is normal - don't output 

8B 
BB 


ot te a a ts tn tb bb 8 bb a 2b > a a as as 3 oo 
DPREQPED_XEQPDP AAD Mr BS BLL EE 


4143 
F 4144 
A te 
i He 
eH 
et 
07 «#€1 OF 4 : 108: BBC #MFSV_NEW CHAR,= ; Branch if the terminal characteristics 
25 00000476'EF FBD 4154 MISC_PLAGS ,MAIN_EXIT > were never change . 
FCS 4155 $Q10W_S - ; Restore old terminal characteristics. 
FCS 4 § CHAN=OUT_CHAN,=- 3 
FCS 4 FUNC=#10$_ SETMODE,- ; 
FCS 4 8 P1=SAVE_CRAR_BUF ,- ; 
. ? ; P2=#CHAR_BUF LEN : 
FE8 4161 MAIN_EXIT: 
OOOOO4AI"EF O01 Di QOFEB 4 ¢ CMPL #SS$_NORMAL ,ERR_MSGVEC*+4; Is the original exit status success? 
07 13 ae 7 ? BEQL 99% 3 if oe one with status from MAIN_ERR 
; _routine. 
50 QO0004A1'EF DO ore ? 5 MOVL ERR_MSGVEC+4,RO 3 a Sean get the original status 
; back. 
04 OFFB 4 5 998: RET ; And exit... 
OFF9 4168 
OFF9 4169 


ee —— 


> 0480 8F 

aot L4H 1 

1F 00002247'EF 1 
00224C EF 

248'EF 

168°EF 

00000000'GF 03 


08 
0000047A‘EF 
00000438'EF  00000434'EF 


00000434°EF 00000444'EF 


EF 

EF 

EF 

18 00000476°EF 03 
1C8°EF 

EF 

EF 

EF 


F4B1 CF 
QOO0007F 8F 
00000001 ‘EF 


3 

01A7 

00 

63 00000001 "EF 
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FES cleo i 
FF ci78 > FUNCTIONAL DESCRIPTION: 
FF t198 : This routine coordinates the ppeeres wes of each report by calling 
FF9 e178 : the appropriate routines based on the classes selected by the 
48 4177 ; user. 
FF $178 : 
Fro c180 
FF9 4181 DISPLAY: 
BB FF9 41 § PUSHR #°R<R7,R10> 
i) FFD 41 MOVL ol tin NUM : Initialize Line number. 
E1 100¢ 7} : BBC #OVTSV_BCRT,OUT_DEV,10$ ; Sronch 18 output device isn't a 
3 crt. 
DF 10 41 § PUSHAL COL 3; Make sure Line drawing and special 
DF 1012 41 PUSHAL LINE_NUM : graphics character set in Gl area in 
DF 101 41 3 PUSHAL GRAPRICS_DSGNTR 5 ECcrt on each screen update. 
FB 1 ig 41 CALLS #3,G*LIBSPUT SCREEN 3 
18 ; rh JLBC RO,DISPLAY_ERROR ; Branch on error. 
8A 1028 £136 108: BI1CB #SCRSM_MORE _DWN,- : Clear flag that indicates there is 
102D 419 SCROLL FLAGS ; data off the bottom of the screen. 
dO 19 ¢ 2138 MOVL LINE_DIF ,PRIOR_LINE_DIF ; Save record of Lines changed on the 
; last pass. 
DO 103D bs MOVL SCROLL_DIF ,LINE_DIF ; Clear Pecord of Lines changed this 
1048 419 3 pass. but set the bits for any 
1048 4198 3 ines that have to be redrawn 
1048 4199 ; because of scrolling. 
DO 1048 4200 MOVL BLANK _LINES,=- ; Save record of blank Lines on the 
et 4201 PRIOR_BLANK_LINES ; _last pass. 
D4 1938 ? 88 CLRL BLANK_LINES ; Clear record of blank Lines this 
3 _ pass. 
€1 1989 4204 BBC #MFSV_RIP,MISC_FLAGS,20$; Branch if refresh not in progress. 
D4 1961 4205 CLAL CLUB_READER SIZE : Initialize CLUB header size... 
D4 1067 4 3 CLRL SCS_READER_SIZE 3 «SCS header size... 
94 1960 4 CLRB CLUB_NUM_FTELDS 3 «eenumber of CLUB fields... 
94 10 4208 CLRB SCS_RumM_FIELDS zt «.enumber of SCS fields... 
1979 6310 
1079 4211 : Go allocate some buffer space, lock in memory and take a snapshot of the 
1979 & \§ 3; SCS and port databases. 
13 $3he 
16 1079 4215 208: JSB BO. SNAPSHOT 3 
107D 4 16 JLBC RO, DISPLAY_ERROR ; Branch on error. f 
1 421 JBC #RPTSV_CLSTR,- : Branch if we're not displaying the 
4 18 CURRENT REPORT ~ ; cluster report. 
D3 108€ 4220 BITL acLSSh ANY_CLUS,- : | Cluster report information to be 
1094 4221 LASS _SELECT : d splayed? 
13 1099 4 § BNEQ $ ; Branch if so. 
31 1098 4 BRwW DISPLAY END ; And go finish up. 
—€1 1 4 4224 308: BBC #CLS$v_CLUB,- 3; Branch if display of CLUB is disabled. 
Ad 4 5 CLASS_SELECT DISPLAY_SCS: 
10A6 4 5 : Display the CLUSTER class at the top of the screen. This class 
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} . : ; contains general cluster information from the CLUB. 
1006 4230 ° 
10A6 4 DISPLAY_CLUB: 
1°EF DO 10A6 4 § MOVL CLASS_SELECT,= 3 Save mask of selected classes. 
1FC'EF 1 aC 4 SAVED CLASSES ; 
rr, : CA } Y ? : BICL tet A ANT gCS.° : Tenporer ity disable all classes but 
3 e ‘ 
000021F 6°EF oi ce 1 4 § BISL SELSSR CLUB .DATA_CNTRL 3; Enable Steeler of fields in the CLUB. 
1 00 10C3 4 VL #CLS$M_CLUB,- 3; Set current class to CLUSTER. 
000021F4°EF 10¢5 4 CURRENT CLASS : 
0879 30 10CA 4 BSBW ger HEABER ; Output CLUB header to screen buffer. 
10CD 424 JLBC RO, BISPLAY_ERROR : Branch on error. 
1CB'EF DO 1003 4241 VL CLUB_HEADER_SIZE,- i If no refresh and gispl axing both CLUB 
1C46°EF 1009 4 $8 HEADER_SIZE ; and SCS, the HEADER_SIZE will be set 
10DE 424 : to the §CS header stze, so we must 
10DE 4244 t get the real CLUB_HEADER_SIZE back. 
4 eal DF 1 of 4245 PUSHAL cue BUF 3; Push address of the CLUB. 
00002729'EF 1 FB ! 4 ? $8 CALLS #1,GET_DATA ; Get a Line of data. 
10EB 4 $8 : Since the number of Lines in the CLUB portion of the display will never 
10EB 4249 ; change, we don't have to call DISPLAY_COMMON. Instead we output the 
ives ? 29 3 bottom Line of the display box only when doing a refresh pass. 
76°EF 3 - ? 4252 ° 6B #MFSV_RIP,MISC_FLAGS,20$; Branch if refresh not in progress. 
saclcopscnerted orre 0 oF 4 3g BSBW RAW_CAST_LINE™ ; Draw bottom Line of CLUB Gispley box. 
|6— Pe re 4254 BRB ; Branch to common code. 
00002248"EF 06 ipee ? 2? 208: INCL LINE _NUM : ste over bottom Line of CLUB display 
OOOCOZIFC’EF DO I0FE 4 “s 30$: MOVL SAVED_CLASSES,=- ; Restore mask of selected classes. 
00000001 ‘EF 1104 4 38 CLASS_SELECT 3 
HBS 38 
1109 4261 : Display any SCS data (SYSTEMS, CIRCUITS, CONNECTION, COUNTERS, 
1133 4 6¢ 3 or CREDITS classes) or any CSB data (MEMBERS class). 
1109 4364 * 
1199 4265 DISPLAY_SCS: 
OQOOOOO7E BF D3 1109 4 66 BITL #CLSSM_ANY_SCS,- ; Any SCS or Cluster System Block info 
00000001 ‘EF 110F 426 CLASS_ SELECT 3; to be displayed? 
1114 4 98 JEQL DISPLAY_END 3; Branch if not. 
QOOOOOO1"EF DO 1119 4 8 MOVL CLASS_SELECT,- 3; Save mask of selected classes. 
00000460 ' EF poonbase EE 126 ¢ i MOVL SAVEDACLASSES LINE : Set the number of data Lines to skip 
F7C9° 8 1 F ; , BSBW © GET_NUM_PB™ 5 : Get the number of circuits on each 
1°EF 1 CA 11 3 4274 BICL #CLSSM_CLUB,CLASS SELECT; we've already displayed CLUB info. 
000021F 4‘EF 11 4275 MOVL #CLSSM-SYS,CURRENT_CLASS; Set current class to SYSTEMS. 
08 1140 427 BSBwW get HEADE 3; Output SCS header to screen buffer. 
1143 427 JLBC RO, BISPLAY_ERROR ; Branch on error. 
1CC'EF DO 1149 427 MOVL S$C§ HEADERTSIZE,- : If no refresh, and displaying both 
0021C4°EF 114F 427 HEABER_SIZE : CLUB and SCS, the header size will 
1154 4 ™ 3: be set to the CLUB header size. We 
1154 4 3; _must get the $¢s header size back. 
C 13 1154 4 § BEQL 10$ ; Branch if nothing to display. 
oi C ; 11 3 4 BSBW SCS_REPORT ; Output the SCS data. 
OFE 11 4284 BSBW = DISPLAY_COMMON ; Execute common display code. 
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115C 4285 JLBC RO, DISPLAY wy 3; Branch on error. 
ae ta dO 116 é § 10$: MOVL ELASS=SELEC Asses ; Restore mask of selected classes. 
0005) 31 16 ? $ BRw DISPLAY. 3 Finish up display. 
1190 6591: 
We 2 3g 3; Display the Port-to-Port data. (LOCAL_PORTS and ERRORS classes). 
1170 4594 ° 
1170 4295 DISPLAY_PTP: 
O0000460"EF 04 112? & 39 CLRL V_SCROLL_LINE : Insure that vertical scrolling 
1176 429 3; doesn't occur in the local report. 
4 999 OF dO 1126 2 38 MOVL CURRENT CLASS ; Set current class to LOCAL_PORTS. 
OAC2 30 1181 4 8 BSBW at HEADER 3; Output SCs heodor to screen buffer. 
1184 4301 JLBC BISPLAY_ERROR 3 Branch on err 
0386 30 118A 4 08 BSBW Lota L_REPORT : Output the PIP data. 
11 4 4 JLBC DISPLAY ERROR 3: Branch on error 
00Cc6 30 1193 4304 BSBW tt PLAY COMMON ; Execute common display code. 
JL Y ; Branch on error. 
1138 ? B2 BC RO, DISPCA ERROR B h 
119C 4307 ; For the Local_Ports report, we also output the number of buffer descriptors 
113e ° 3 : free and in uSe below the rest of the display. 
125€ 30 119C 4310 BSBW ERASE _TWO_LINES : Leave a couple of blank Lines. 
119F 4311 JLBC RO,DISPLAY_ERROR : Branch on error. 
SA OQ0000023°EF DE 11A5 4 \¢ MOVAL NUM BUF tOstR _DSCR,R10 : Point to descriptor for the number of 
11AC 431 ; buffer descriptors in use. 
57 10 AA 00 tS ? 1 MOVL FOSL_OFFSET(R10) ,R7 ; wee the $4 offset from the 
:; descriptor. 
13cc)3=—s_s« 330 113% 4 18 BSBW FORMAT_DATA : Format the data. 
1183 431 LBC RO,DISPLAY_ERROR : Branch on error. 
0000224C ‘EF F 1189 4318 PUSHAW co NUM ; Output the data to the report. 
$009 ‘3 Er OF 1185 4 9 PusHAL rt waAt By a : 
OO'GF O03 FB 11CB 4321 CALLS : CoLTBSPOT CE REEN : 
11D2 4 ; JLBC DISPLAY_ERROR : Branch on err 
QOOOOIDF‘EF DF 1108 4 PUSHAL : Print ‘Cl Suffer descriptors in use." 
00000000 ' GF Bs. 110 4324 CALLS “GL IBSPUT SCREEN : 
6D 50 €9 11€5 4325 LBC *DISPLAY_ERROR : Branch on error. 
00000000 ' GF 4 FB 11E8 4 § CALLS GL IBSERASE LINE : Erase the rest of the Line. 
63 E9 IEF 4 LBC RO” DISPLAY_ERROR ; Branch on error. 
600 4B8'EF D6 irs 4 3 INCL LINE NUH 3 ire butter descriptors on next Line. 
0 m4 DE 11F8 4 MOVAL NUM_FREE_BUF_DSCR_DSCR, “ Poi ng to descriptor for number of 
A 11FE 43350 ; buf or descriptors free. 
57 10 AA 00 pad : 1 MOVL FDSL_OFFSET(R10) ,R7 : Get th ’ sts offset from the 
; descriptor. 
1379 30 1 03 4 § BSBW 4 RMAT_DATA : Format the deta. 
4C 50 1 3 4334 BLBC DISELAY ERROR : Branch on erro 
4C°EF me ° 4335 PUSHAW fot 3; Output the aera’ to the report. 
SEF ODF 1318 4339 PUSHAL FOR vat 
pte 03 FB 1218 4 3 CALLS i. RAT BUF OSCR SCREEN 3 
30 e9 1 4 BLBC piariay Vacer ROR ; Branch, on error. A a 
oonse eer BH DF 1 4340 PUSHAL Ree : Print "Cl buffer descriptors free. 
00000000 ' GF 1 FB 1228 4341 CALLS i" rE APU BSPOT’ SCREEN 3 
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t handler. 
eo 1 é 4 tg BLBC RO,DISPL 
4) 4 CALLS 4#0,G“LIB 
E 44 BLBC RO,DISPLAY_ 
D6 ; INCL  LINE_NUM 
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15-SEP-1984 
4-SEP-1984 


#MFSM_RIP ,MISC_FLAGS 


ERASE_PAGE 
BLBC RO, DISPLAY_ERROR 
BSBW  CHECK_MORE 
BICL 
DISPLAY_ERROR: 
POPR #*M<R7,R10> 


AX/VMS Macro V04-00 
CLIUTL.SRCJSHWCLSTR.MAR; 1 


; Branch on error. 

; Erase the rest of the Line. 

: Branch on error. 

; Set Line number to next Line. 


; Erase any Lines following the report, and update the scrolling 
; signals and broadcast messages at the bottom of the di 


splay. 


; Erase any remaining data. 
; Branch on error. 


messages to the report. 


oo 


: Add scrolling signals or broadcast 


; Clear refresh in progress flag. 


a 


a 9 
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125A 4 66 3 
125A 4 ? 3 This routine is 4 phage tthe. of either the Cluster Report or the Local 
125A 4 3 ; report. It determ this Ui if . 7 Line of the box 4 Surrounding the data 
125A 4 8 3 should be draw. drawn only if there is room on the screen and 
125A 4370 ; either the Line won't hy Wed in the same place is was last pass, or the 
125A 4371 ; screen is being refreshed. 
158a 308 | | 
1 24 4374 DISPLAY_COMMON: 
38 01 DO 125A 4375 MOVL #SS$_NORMAL ,RO ; Assume success. 
00000428"EF  00002248°EF D0 1 23 4 6 MOVL LINE -NUM,NUM_LINES ; Save number of Lines this pass. 
00000444'"EF D4 1268 437 CLRL SCROCL_DIF ; Clear record of Lines to redraw 
126— 4 4 ; because we scrolled. 
oF 3 3 437 BBS #SCRSV_MORE_DWN,- ; Branch if we have more lines of data 
3E 0000047A'EF 1270 4380 SCROLLFLAGS,20$ ; than will fit on the screen. | 
0000225C "EF 00002248'EF D1 : if 2 1 CMPL LINE_NOM,CMD_LINE : it A. next line be in the command | 
iS : 4 : BEQL 208 If oo don't output the last Line. 
08 €4 1 4384 BBSC #MFSV_SCROLL,=- : Clear flag that indicates that we 
20 00000476'EF 1 4385 MISC_FLAGS, 10$ ; have scrolled. 
00000428'EF D1 1288 4 § CMPL NUM_CINES,= 3; Do we have the same number of Lines 
0000042C ‘EF 1291 4 PRIOR_NUM_LINES : of data as last pass 
13. 12 1296 4388 BNEQ 10$ : If not. draw the last "thes of the box. 
OB 00000476'EF 03 €E0 : Ht rt 4 BBS #MFSV_RIP,MISC_FLAGS, 108; If refresh in progress better draw the 
00002248°EF D6 12A0 4391 INCL _LINE_NUM ; Skip the Last Line draw. | 
50 01 DO 12A6 £338 MOVL #SS$_NORMAL ,RO : Indicate success. 
09 «11 ise 439 BRB 20$ ~ : Jump to common code. | 
0E43 30 12AB 4394 BSBW DRAW_LAST_LINE : Draw bottom line of “display box. 
12 4395 JLBC RO,MAIN_ERR ; Branch on error. 
1 4396 $B 
1 4397 
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5 | 
4-SEP=19 CLIUTL.SRCJSHWCLSTR.MAR; 1 4). 
-SBTTL SCS report generation routine. 


+ 
aa 


FUNCTIONAL DESCRIPTION: 


This routine formats the SCS portion of the cluster report. This 
portion of the report has been designed to illustrate the heirarchy of 
the cluster by showing the relationship between a system on the cluster, 
the circuits established on the system, and the connections established 
over these circuits. This portion of the report also displays the 
system membership status (MEMBERS class). 


This routine scans through the snapshot buffer looking for data to be 
displayed while controlling what data is to be displayed on a 
articular Line of the report (using the mask at DATA_CNTRL). 

f the data found in the snapshot buffer conforms to the data to be 
displayed on the particular Line and the user has elected to see that 
type of data, then a call is made to the GET_DATA routine to extract, 

ormat and add the Line of data to the screen buffer. 


This routine also sets up the counter V_SCROLL_LINE by using the 
value in V_SCROLL. This count is an input to fhe GET_DATA routine 
which causés it to ignore the first ‘V_SCROLL'' times Tt is called. 
This effectively scrolls the report up ‘V_SCROLL" Lines. 
; CALLING SEQUENCE: 

JSB SCS_REPORT 
CALLED BY: 

DISPLAY_SCS 
INPUTS: 


| 
VSCROLL Set to the number of Lines of data to skip before | 
adding the first Line of data to the report. 


CLASS_SELECT Contains a mask of the classes selected for display 
by the user. 


IMPLICIT INPUTS: | 


Snapshot has been performed and all the system blocks, path blocks, etc. 
have been stored in SNAP_BUF. 


IMPLICIT OUTPUTS: 

Display data stored in SCREEN_BUF. 
RETURN STATUS: 

Status from call to GET_DATA routine passed in RO. 
REGISTER USAGE: 

R8 - Pointer to connections in CDT buffer. 
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12B5 44 § ; R9_ = Pointer to path blocks in PB buffer. 
44 ; R10 = Pointer to cluster system block in CSB buffer. 
2 8 ; Ril = Pointer to system blocks in SB buffer. 


; NOTES: 


ae 
Se 
AO 
Win 
Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge te Ge 


128 
128 
128 
158 
128 In order to ney a class, the corresponding CLS$ (class) bit in 
108 CLASS_SELECT must be set. fhe same must be true of DATA_CNTRL or all 
12B5 4464 the fields in that class will be filled in with blanks. “Normally the 
1285 4465 CLASS SELECT bits are controlled by the user through the ADD class and 
12B5 446 REMOVE class commands and the DATA_CNTRL bits are controlled by Show 
1 8? 446 Cluster to format the ts pag When the CLUSTER class is being 
12B5 446 eses*tee Show Cluster also manipulates the CLASS_SELECT bits. 
12B5 44 CLASS_ ELECT bits are manipulated in this routine and in the REFRESH 
12B5 4470 ; routine to control the display of the header. 
1588 Gaye 
: a 4a78 ASSUME CLS$V_750_SYS EQ 16 
12B5 4475 SCS_REPORT: 
OFO4 8F BB 1285 $678 PUSHR #*M<R2,R8,RI,R10,R11> 
CA 1289 447 BICL  #<CLS$M_CSB!CLSSM_CIR!= ; Assume no members, circuits, 
12BA 4478 CLSSM_CON!CLSSM_CNT!= ; connections, counters, or credits, 
12BA 4479 CLSSM_CRD!CLSSM_CLUB>,-; and no genera cluster information 
000021F8"EF 0000007D 8F 12BA 4480 DATA_CNTRL ; to display, so disable them all. 
5B QOOOOSED'EF 00 12C4 4481 MOVL VAR_BUF R11 : Get address of first system block. 
52 00000482°EF ODE 1 cB 4482 10$: MOVAL HW_TYPE_TABLE,R2 ; Point to table of system types. 
51 D4 1202 448 CLRL R1 3 Initialize index into table. 
34 AB 6241 D1 1204 4484 20S: CMPL (R2)CR1),- : Is the type of system speci tied by 
1209 4485 SBST_HWTYPE(R11) ; _this system block in the table? 
06 13 1209 4486 BEQL : Branch if so. 
F551 06 Fe ! 9 ret t4 AOBLSS #NUM_HW_TYPES,R1,20$ ; Loop for all types of systems. 
12DF 4489 ; If not in the table, accept it anyway. It could be the local system block 
3 an <> 1, or pre ersion 3.3 system. 
: +4 ret d VMSVAXCLUSTER 1 VMS V » 
OE 11 120 ret BRB 408 : 

51 10 CO 12€1 4494 30S: ADDL #CLS$V_750_SYS,R1 ; Convert index to CLS$ bit value. 
12E4 4495 JBC R1,CLASS_ SELECT, 60$ ; Branch if user has removed this 
12EF 449 3; type of system from the display. 

OOOOI4FB'EF 16 : cf reed 40$: JSB CHECK_ID 3 Check, 1e this ovecene ID is in the 
:; disable st. 
1 Fe 4499 JLBS BO, gee : Go on to next system block if it is. 
000021 eS G2 8 12FB 4500 BISL #CLSSM_SYS,DATA_CNTRL ; Enable display of systems class. 
00002248'Es 1302 4501 MOVB LINE_NUM,- 3; Store Line number for this system in 
09 AB 1 45 ¢ SHCSSB$B_DIS_POS(R11) ; system block. 
02 €1 130A 4503 50S: BBC #CLS$v_CSB,- ; Branch if user has removed members 
14 90000001 "EF 130C 4504 CLASS SELECT, 55$ : from the display. 
000021F 8° EF 4 CA ! ; $2 5 BICL #CLSSA_CSB,DATA_CNTRL ; Asoune no CSB associated with this 
; _system. 
SA 5C “ DO 1319 45 8 MOVL BELCSBCRIT) R10 3 Get address of CSB for this system. 
8 13 1310 45 8 BEQL $ ; Branch if no CSB. 
000021F 8°EF 4 CB 31F 45 BISL #CLSSM_CSB,DATA_CNTRL ; Enable display of CSB's. 
OOOOT44C°EF 16 1326 4510 55$: JSB CHECK_RUM_PB : See if the number of path blocks on 
132C 451 ; _this system block has changed. 
59 OC AB DO 1352C 4512 MOVL SBSL_PBFL(R11),R9 ; Get address of first path block on 
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1 4513 3; _this Syqtes block. 
68 13 #1 4 13 BEQL 120% ; orogens a snore are no circuits on 
3 Ss system, 
12 a9 «2B i ¢ 1 CMPW yo PDL al 3 Is the ircuit in the open state? 
H 1 i d : BNEQ . : Branch if not. 
9 if 1 § 4 8 60$: ‘BBC #CLS$V_OPEN yt - ; Branch if user has removed open 
11 00000001 "EF 133A 4 p a ASS SELECT, og : circuits from the display. 
; eH i 13 t3 2 70$: Bae #CLS$V_NOOPEN ciR.- ; Branch if user has removed circuits in 
07 00000001 "EF ! rf ‘3 z CLASS_SELECT,90$ : aispts other that open from the 
A ; _display. 
QOOOOZIFS*EF O08 CB 154A 4525 80S: BISL #CLSSM_CIR,DATA_CNTRL ; Enable display of circuits class. 
0000 . : M_COT ; See if the number of connections 
an ee i 3} t3 $ - — sence 6 ; on this path has changed since the 
1357 4528 ; last pass. 
58 34 a9 00 ! 22 4 4 MOVL PBSL_COTLST(R9) ,RB : Got ptpress of first CDT on this 
40 13 1358 4531 BEQL 120$ : Branch if there are no connections 
138) 4839 MPU SHCSL_CDT_DIF*corsw.staTécrn cn | 
= OF ns i 2 t3 4 : aco Tse LISTEN 5 ; Is this CDT in the ‘Listen’ state? 
10 12 1361 4535 BNEQ 1108 ~ 3; Branch if not. 
OOOO21FB"EF O08 CA 1303 $238 BICL #CLSSM_CIR,DATA_CNTRL ; aft Peel bo mgs display of 
OOOO2Z1FB°EF 10 + : oA i338 erst #CLSSM_CON,DATA_CNTRL : ene Bee of conntettone class. 
rd,\ ; Jum " 
: H T_DIF+CDTSW_STATE (RB) ,- 
” 0 ” i te 1209 ney phy SCorst OPEN. re 3 Is this CDT in the “‘open’’ state? 
OA 12 1377 454 BNEQ 1 * ; Branch if not. 
0B €1 1379 rer BBC #CLS$V_OPEN_CON,- ; Branch if user has removed open 
11 00000001 °EF 137B 4544 CLASS SELECT, 119$ 3 open connections from the display. 
08 11 #1381 4545 Be8 1188 ' 3; Branch to common. 
OC €1 1383 4546 11 BBC #CLS$v per CON,- ; Branch if user has removed non-open 
07 00000001 EF 1 ge tec9 CLASS_SELECT,T19$ 3 connections from the display. 
OOOO2Z1FB*EF 10 C8 1 4548 118$: BISL #CLSSA_CON,DATA_CNTRL ; Enable display of connections class. 
00000060 8F cs 1 $3 4549 119$: BISL #CLSSM CRO'CLSSA_CNT,- 3; Enable display of counters and 
000021F 8 EF : ms $229 DATA_CATRL 3; credits classes. 
: 3p 1388 AND the mask of classes we've enabled with the mask of classes the user has 
139D 4554 ; selected and see if there's any data to be displayed. If so, output a Line 
: 4 4336 3; of data, otherwise continue looking. 
1390 4 ; : 
° : ATA_CNTRL,R1 ; Get mask of classes enabled. 
51 doo00no1 er ‘ ts H4 4359 _— BicL RI CCASS. SELECT RI 3 ony Cote Se be displayed? 
A 3 vot. 
000004 76'EF ; E0 : ae $29) BBS #MFSV_RIP,MISC_FLAGS,- : wag besteten check if performing a 
; —O0 1 $ 4568 BBS were SCROLL ge : yr i osition check if we just 
- OO 0bs CAS EE 1 : 4365 JSB CHECR_POS © ; check it the system has moved in the 
58 DD 1304 4 $ 125$: PUSHL R8 + Push address of CDT. 
9 OD 1 g i368 PUSHL R9 ; Push address of path block. 
rH DD 1 456 PUSHL R10 ; Push address of cluster system block. 
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130$: 


140$: 


150$: 


160$: 


ty 
on routine. 


DUMMY_SB,R11 


dD 10 
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R11 
a3. { DATA 


ete CON! CLSSM_CNT 
14 S$m_ CRD>, DATA_ ay 


#<CLSSM_SYS!CLSSM_CSB!- 

LSSM_~CIR>,DATA_CNTRL 
(R Y Ra~ 
1208" 


#< CON! CLSSM_CNT!- 


CLS$M 
CLSSM_CRD>,DATA_CNTRL 
R9 

160$ 

(RO) ,RY 

1508 

+0 wr > ea i 
DATA_CATR 


6 
#<CLSSM_CIR!CLSSM_CON!- 
payko sat CNT!CLSS$M_CRD>,- 


SBSL_PBFL(R11) 


GET_BLANK 
#CLSSM_SYS!CLSSM_CSB,- 
DATA_CATRL 


#*°M<R2,RB,RI,R1I0,R11> 


; Are we by ny bn FA ceqnestrenss 


; Branch if not. 
; Disable display of systems, members, | 


CLIUTL.SRCJSHWCLSTR.MAR; 1 


; Push address of system block. 
Bogus CLUB address. 
Get a Line of data. 
Branch on error. 


counters or cre 


and circuits class. 

Get address of next CDT. 

Loge ae all connections on this 
circu 

Assume no connections on the next 
circuit, so disable display o1 
connections, counters, ond. credits 
classes. 

Are there -~ circuits on this system? 

Branch if n 

Get eadress ret next path block. 

yo if no more circuits on this 


pizable’ display of systems, members 
classes. 


Loop for all circuits on this system. 

Assume no circuits on next system, so 
disable display of circuits, 
connections, counters, and credits. 

Determine if we are displaying 
formative paths without formative 
system blocks. 

If so, end the report. 

Get address of next system block. 

Loop for all systems in the cluster. 


7 ope address of the fake system 

ock. 

Are there any formative path blocks 
on the — system block? 

Branch if no 

Leave one blank Line. 

Disable display of systems, and 
members classes of dat 

Display the formative path blocks. 
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FUNCTIONAL DESCRIPTION: 


SHUCLSTR Show 
¥04 scs r 


This routine insures tnat a change in the number of path blocks 

does not go undetected. When a path block is removed from the 

a CHECK_DIF is no longer called to check for a change 
° 


C 
e 
1 
144C § § 
144C 66246 
1446C 4625 ; 
144C 46 § 3 
Hare 
144C 46 § : in data for that path block. This means that the Line will 
144C 46650 ; not be redrawn until the screen is refreshed. This routine 
144C 4631 ; calls CHECK_DIF with the data to be checked being the number 
bre: 6 ¢ 3 of path blocks, so a change will always be detected. 
164 ms é > CALLING SEQUENCE: 
Ieee 4636 JSB CHECK_NUM_PB 
164 46 : ; CALLED BY: 
144C 4640 ; CLUSTER_REPORT 
144C 46461 ; 
wae aa oe 
1464C 4664 ;: Address of the system block in R11 
144C 46645 ; 
Hae Gace 5 CTTwree 
144C 4648 : The bit coresponding to the current Line number in LINE_DIF 
144C 4649 ; is set if the number of path block on this system block has 
144C 4650 ; changed. 
144C 4651 ; 
Vece. cess 
144C 4654 CHECK_NUM PB: 
0480 8F BB 144C 4655 POSHR #*M<R7,R10> 
57 04 AB DE 1450 $028 MOVAL SBSSHC$L_NUM_PB(R11) .R7 ; Get the address of the data. 
000001A9" 4 DE eee rr tt MOVAL SBSSHCSL_NUM_PB_DSCR,- ; a * the eceress of the field 
3; descriptor. 
QO0002DSD°EF 16 Fs roth JSB CHECK_DIF 3 ge ye me of path 
ES 1461 4661 BBCC 3 3—s # MF $V INVERSE - : Branch if there was no change. 
OC 00000476'EF 1463 466 MISC_FLAGS,99$ : 
00 00000434"EF  O00002248°EF €E2 re $927 BBSS LINE "NUM, LINE_DIF,99$ : sndtease thet this Line of data 
0480 8F A 1273 4665 99S: POPR #°M<R7,R10> ‘ : 
5 147 £006 RSB 
147A 466 
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FUNCTIONAL DESCRIPTION: 


This routine insures that a change in the number of connections 
does not go undetected. When a CDT is removed from the database 


The bit coresponding to the current Line number in LINE_DIF 


G7A 
47A 3 
A ten | 
47A 4675 ; CHECK DIF is no longer called to check for a change in data for 
47A 4676 ; that COT. This means that the Line will not be redrawn until 
47A 4677 ; screen is refreshed. This routine calls CHECK_DIF with the data 
47A 4678 ; to be checked being the number of CDTS , so a Change will always 
re rots ; be detected. 
47h 46 ? ; CALLING SEQUENCE: 
S7A 46 $ 3 JSB = CHECK_NUM_CDT 

4685 ; CALLED BY: 

46 $ ; CLUSTER_REPORT 

d689 : INPUTS: 

reed: ; Address of Path Block in R11 

4693 ; OUTPUTS: 


aaa naa a at a at a kt at do dt a a as = ss 2 


47A 
47A 
47A 
47A 
47A 
47A 
47A 
47A 
47A 
i 
rhs £83 is set if the number of CDT's on this path block has changed. 
47A 4698 ;-- 
47A 469 
47A 4700 CHECK_NUM_ COT: 
0480 8F BB 147A 4701 POSHR #*M<R7,R10> 
57 04 AB DE 147E 47 § MOVAL PBSSHC$L_NUM_CDT(R11).R7; Get the address of the data. 
OOOO0SO1"EF DE 1482 47 MOVAL PBSSHCSL_NUM_CDT_DSCR,- ; Get the address of the field 
A & 4704 R1 ; _descriptor. 
O0002D3D"EF 16 14 4705 JSB CHECK_DIF : See if the number of path 
48F $788 ; _blocks changed. 
02 €5 1468F 47 BBCC #MF SV smvense - ; Branch if there was no change. 
OC 00000476'EF 491 4708 MISC_FLAGS,99$ ; 
00 00000434°EF  O00002248°EF E2 1497 4709 BBSS LINE“NUM,LINE_DIF,99$ : Indicate that this Line of data 
4A3 4710 ; must be redrawn. 
0480 8F BA 14A3 4711 99S: POPR #*M<R7,R10> 
05 146A rat RSB 
4A8 471 
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146A 5 34 

146A 

ron FUNCTIONAL DESCRIPTION: 

146A This routine compares the esegtey Line number stored in the system block 

146A at SHCSSBSB_DIS_POS (SBSW_SIZE+1) with the display Line number stored 

16A during the Cast update. LY gif ferent it indicates that the data for 


this system has moved to a ferent part of the display. If the data 


itself has has not changed, then this could otherwise go undetected. 
CALLING SEQUENCE: 
JSB CHECK_POS 
CALLED BY: 
CLUSTER_REPORT 
INPUTS: 
R11 = Base address of system block containing Line number to check. 
en points to buffer containing system blocks from the previous 
OUTPUTS: 


If the Line numbers are found to be different, then a bit corresponding 
to the Line number is set in LINE_DIF. 


De Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Se 


R #*M<R2,R3> 
CMPL R11, #DUMMY_SB 


BNEQ 
MOVAL OLD_FIX_BUF,R3 


RETURN STATUS: 

RO = SS$_NORMAL 
THE CK_POS : 

PUSH 

MOVAL FIX_BUF,R2 
SUBL3 R2,R11,R2 


C S 
000001F 3° 8F 5 Bf 
14 «12 10$ 
53 OQOO004A3"EF DE 
52 0000004B8'EF DE 
a i 
18 «11 208 
53 00000419"EF 00 : 
52 5B OOO003ED'EF C3 
00000421"EF 52 01 
94 BGEQ 30$ 
53 2 : 


FSF PSPS PSSPSLSSIS SSSI SPSS PS SF > 


Does R11 point to the fake system 
block? 


Branch if not. 
Point R3 to previous fixed length 


ers. 

Get the address of the current fixed 
Length buffers 

Get the offset into the current 
fixed Length buffer where this 


@owow 
wu 


+54 


6 system block is located. 
BRB Branch f° common. 
10$ MOVL OLD_VAR_BUF ,R3 Point R3 to the previous variable 
Length buffe 


MEAN SO OD NOAA UE WIN O OOD NA NE WINS OOD NA UENO OD NOU EW OO ONO 


rs 

Get the offset into the current 
variable length buffer where this 
system block is located. 

Is the offset larger than Length of 
the preytous buffer? 

Branch if so. ; 

Locate the system block in the 


SSS See 


me ee ee ee a me ee ee ee 8 ed ed ed od od 
Ss es 


SVOCCVTOTCAAAMAOAQAQOAO 
RNOVOOOMMmyn— 


SNOAO 


—OO®w 


SUBL3 VAR_BUF ,.R11,R2 
CMPL =R2,0LD_VAR_BUF_LEN 
208 ADDL R2,R3 


o-_ 
oo 


voe-b80" Stew Cluster UENLNTY outings "TERBCABEE SERGE YAEAUME.SRe5e.MRS08 muest 28 h 


14 4 ; old buffer 
98 " 91 IE cr78 CMPB Sues see Dts OOS (RT) e= : 1s the line’ number different? 
A 14 4 one SB$B_DIS_POS(R3) : 
oc 13 HP 4775 BEQL 40 : Branch if n 
00 00000434"EF  O0002248°EF E2 14E9 o77e 30$: BBSS LINE NUM .LINE_DIF,40$ ; Indicate ine’ must be redrawn. 
0c BA I4FS 4777 40S: —-POPR #*mcR2,R$> 
14F7 4778 RSB 
8 | 4779 
14F8 4780 
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ili 15-SEP-1984 23:52: AX/VMS Macro v04-00 Page 
St capert geearacioe routine. 27860-1382 $3:52:08 CLIUTL.SRCISHWCLSTR.MAR; 1 (28) 
rH a a 
14F 47 4 $ FUNCTIONAL DESCRIPTION: 
: hi j akes the system ID found in the system block and calls 
12F t $ ; FIND SYS. 1D te check if the system ID is in the SYS_ID_LIST of system 
1478 47 3 3 that are not to be display. t returns success if the system ID was 
1GF8 6790 a 
14 4791 > CALLING SEQUENCE: 
4F cr38 ; JSB CHECK_ID 
16F 4798 > CALLED BY: 
14F 1399 : CLUSTER_REPORT 
14F £738 3 
1 rh + 3; INPUTS: 
14F ret : R11 = Base address of system block containing ID to check. 
1h SHR 
14r 4804 ; RETURN STATUS: 
14F ret : RO = SSS_NORMAL if system ID is in the List. 
1478 4807 ; 
1478 4808 ;-- 
ler 1840 CHECK_ID: 
8B 12f8 4811 ~""PUSHR = #*<R4> ; R4 destroyed by FIND_SYS_ID. 
DO 14FA 481 MOVI SB$B_SYSTEMID(R11),- ; Get the system ID from the Systes 
14FD 1818 ; block and store in ID_RESULT. 
BO 1502 4814 MOV SBSB_SYSTEMID*#4(R11),- ; 
1308 4815 1D_RESULT+4 3 
16 150A 4 1 g58 PIRD SYS_1D : Look for it in the List. 
Be iat Q : RSB : Return with status from FIND_SYS_ID. 
0S 151 8 
15135 4819 
1513 4820 
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§ . -SBTTL Local report generation routine. 


FUNCTIONAL DESCRIPTION: 

This routine formats the display for the local pore report. It simply 
nables both classes in the local report gets the address of the 
nformation for the port POT oUF and MISC_BUF and calls the GET_DATA 

routine. It then determines a second feport is present and Tf so 

repeats the process for the second report. 


Note that V_SCROLL LING is cleared for this report since it is never 
necessary tO scroll this report vertically. 


CALLING SEQUENCE: 

JSB LOCAL REPORT 
CALLED BY: 

MAIN_LOOP 
INPUTS: 


CLASS_SELECT Contains a mask of the classes selected for display 
by the user. 


IMPLICIT INPUTS: 


Snapshot has been performed and all the port discriptors and 
miscellaneous port information has been stored in SNAP_BUF. 


IMPLICIT OUTPUTS: 

Display data stored in SCREEN_BUF. 
RETURN STATUS: 

Status from call to GET_DATA routine passed in RO. 
REGISTER USAGE: 


R9 = £Pointer into MISC_BUF. 
R10 = Pointer into PDT_BuF. 


SDD DDD DDD DDE I BB BBE BB WIN NIII II PRPPNN 


CONIA ANEW 29 OD NA UNE WIN O OOD NAME WIN OS OD NA UE WIN 0 OD NA NEW OOOO 


a a ee ee ee ee a a a ee el a el el ee el el a a el el el al el al al 
Pe ete h ea) eal al ah al al ah ah sh th ah ab Ah ah ib db Ab dh eb Ab Abb ih db Ah heh ah ab shh ah shes sb sh eh eh shes ea heel eal eel eal es eae eae Y 


WAAL. AIA = ot I OO OO OO OO OO OO OP OS OP OP OP ss st es ss es es es ee es ee ek a ws a a a a a ss it 
Pe ee ee Oe TT TT ot ot ot at a MM UMUMUMUMUMUAUMMAUAMAMAMAMAAAAMAAMAAAAAMAMMMMAMMMnMnMnee 


LOCAL_REPORT: 
8g00 8F BB PUSHR #*M<R9I,R10> 
5A Q00002A7"EF DE ? MOVAL PDT BUF ,R10 : Get address of first PDT. 
59 447°EF bE § 7 MOVAL MISC_BUF,RI 3; Get address of miscellaneous buffer. 
ste F OD 7 MOVL #CLSSM LPRT!CLSSM_ERR,- : Enable display of local ports and 
000021F 8°EF 7 DATA_CRTRL 3 errors. 

9 if 7 TSTL (R9) 3; Any data on first port? 

os 7 BEQL 10s : Branch if not. 

14 19 4 7 BSB 100$ 3; Get data for this port. 

oc 50 _~=C'€E 6 7 BLBC RO,99$ :; Branch on error. 
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Stten routine. 


ADDL 


15-SEP- 
4-SEP- 


#MISC_BUF _LEN,R9 
yet rot senem ate 


#*A<R9,R10> 


#7,GET_DATA 


138t 39:30: ee LER TS Bees Ot 0 nans1 


; Get address of erecetlenceus data for 


the second port 
et address of PDT for Second port. 
et data for this port 


Any data on port? 

If not retur 

Save aderess "ot miscellaneous buffer. 
Save address of P 

Adjust SP for no CDT, PB, CSB, SB, or 


CLUB. 
Get info on port. 
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00000000 $F 
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00000000 ' 8F 
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15-SEP-1984 
t=8Ep-19 4 


-SBTTL Error message output. 


It then determines i 


: FUNCTIONAL DESCRIPTION: 


This routine does a call to SGETMSG using the status stored in 

CMD_STATUS. Caqraet ts the result from the last command parse). 
any FAO arguments are expected with the 

message and sets up the message vector accordingly. 

does a call to LIBSSIGNAL to output the message to the terminal. 


CALLING SEQUENCE: 


JSB SIGNAL 


CALLED BY: 
READ_W_PROMPT 


SCROCL= TWO 


INPUTS: 
Message identification number stored at CMD_STATUS. 
IMPLICIT IMPUTS: 
Descriptor for FAO argument stored at TPARSE_BLK+TPA$L_STRINGCNT. 
OUTPUTS: 
Message output to the terminal. 
RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 


CMDS 
. 1B$ 
#SHOWS_UNRCMD, CMD_STATUS; 
308 


TATUS,=- 
“SYNTAXERR 


; Syntax error detected by TPARSE? 
Branch if not. 

‘Unreco 
3; Branch 
CMPL COD STATUS ML 18S _UAKEY : 


#SHOWS_UNRKEY ,CMD_STATUS; arose nized keyword’ 
30$ ; © common code. 


3; Branch 
CMPL  CMD_STATUS, #LIBS_AMBKEY ; 
#SHOWS_AMBIG,CMD_STATUS ; 


N = ERR_MSG_DSCR,- ; 


nized command" 
© common code. 


Unrecognized keyword? 
ranch if not 


Ambiguous keyword? 
ir gh if not 
‘Ambiguous 


; Get the error message into the 
= CMD_STATUS,- : buffer. 


Mm 10 
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15A9 4954 BUFADR = GET_MSG_DSCR,- 
15A9 4955 our age = MSG_OUT_ADRS-~ ; 
4¢ 50 £9 ! cA $3 § BLBC 3; Branch on error. 
QOOOO4AE'EF 95 1 5 $338 TSTB MSG_OUT_ADRS+1 3 te thers an FAO argument associated 
i Ww e message. 
ef 13 130 4960 BEQL ags 3; Branch if not. . 
00000490 ' EF B0 1302 $38) MOVW #3, ERR_MSGVEC 3 wiserycee oes the meter of ten words 
3 e vector to include the 
150¢ 2968 3 _FAO erqunent. 
OOO04AE' 90 15DC 4964 MOVB MSG_OUT_ADRS+1,- ; Save the number of FAO arguments in 
SHE wo IF Huan, PACER Est, Tit eeneee ctor, 
7E aS EF Re 15ED 1969 MOVZWL ERR_MSGVEC+8,-(SP) ; Output the error message with FAO 
9000488" F DD 15F4 4968 PUSHL CMD_STATU ; directives. 
00000000'G 3 FB 15FA 43 CALLS #3,G*LIBSSIGNAL : 
11 190 £359 BRB 99§ ; Branch to common code. 
0000049D'EF 01 90 1603 £36 40$: MOVB #1, ERR_MSGVEC ; Set the muaber of ton yords bs she 
3 message vector to indicate tha 
180a 4974 ; there are no FAO arguments are 
160A 4975 3 _associated with the message. 
000004B9'EF DD 160A e278 PUSHL CMD_STATUS ; Output the error message. 
00000000 * GF 01 FB 1919 497 CALLS #1,G6*LIBSSIGNAL : 
00 11 1617 4978 BRB 99§ ; Branch to common code. 
1619 4979 
05 1619 4980 99$: RSB 
161A 4981 
161A 4982 


N 10 
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& -SBTTL Broadcast message handling. 


+ 
oa 


FUNCTIONAL DESCRIPTION: 


This routine is gatiee to output a broadcast eresany. It determines 
if any information is being display on the bottom line of the report 
(command input, error messages. or a previous broadcast message). 
f no information is bein asp levee then a Line of a broadcast 
message is removed from the MSG OUT QUE (if available) and displayed | 
on the bottom Line. Once output, the buffer used for the message is 
graces in the MSG_FRE_QUE to save calls to GET_VM by the STORE_MSG | 
utine. 


CALLING SEQUENCE: 
JSB OUT_MSG 

CALLED BY: | 
CHECK _MORE 

IMPLICIT INPUTS: 
BOT_CMD_LINE Indicates the type of informatior currently being, 


displayed in the bottom Line of che command scro 
region. 


MSG_OUT_QUE Contains a list of buffers containing message Lines 
to be output. 


IMPLICIT OUTPUTS: 
Broadcast message output to the screen buffer. | 
Message buffer added to MSG_FRE_QUE 
Message buffer removed from MSG_OUT_QUE 
BOT_CMD_LINE Set to indicate that there is a broadcast message on 

the bottom Line of the command scroll region if a 
message was output. | 

RETURN STATUS: 


SS$_NORMAL or failed status returned in RO. 


AUER OS OOO NAUE WN 29S OONAUE WN O OONOUES WO 


Se Se Ge Ge Ge Ge Ge Ge Ge Sse Ge Ge Ge He Ge Se Ge Ge Ge Ge Ge Ge Se Ge Sse Ge Ge Ge Se Ge Se Se Se Ge See Sse Ge Se Se Se Se Se Ge Se 


ee ee ee ae ee a a a ee a a ee ee a a a a a a a a a a a 
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OUT_MSG:PUSHR #*M<R2,R3,R4,R5> 
TSTB 


3C BB 
00000471'EF 9 BOT_CMO_LINE 


OOOO OCOCOOCOSOOCOCOCOSOOCOOCOSSOSGOCOCSOSGOOOOOOCOCOOOOOOOOOOOOOOOOO 


Avy information on the bottom command 
Line? 


JNEQ 99$ Branch if so. 
00000000°EF  O0000010'FF OF REMQUE @MSG_OUT_QUE ,BUFADR Remove a Line from the message output 
ueue. 
03 BvC 10$ skip next if available. 


Branch if none available. 
; Get the address of the message. 


99$ 
108: ADOL3 #8,BUFADR,R4 t 
; Build message descriptor 


007F 
54 Q0000000'EF 08 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
DRPRDQPAPEDPAAA PAPA DPD DAD DPA DPA PAPA DAA AAA AA AAA AAA AAA AAA AAA AAA AA AA AAA 
Oe ee ee eee awa les wales w al wal eal eal alah al abeah ah abe al al eal eal eal ales slab sal al ab sb al sl et et et oP oP er oP et oe or or er et er er 
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1FAD‘EF 3C «(«163F 4 MOVZWL (R4)+,MBX_MSG_DSCR ; = length and type 
SCOOT E 1°EF g 05 1646 <8 MOVL MSG_DSTR+4 i address. oi 
00002248'EF 60°EF 1 40 4 MOVL LAST_LINE,CINE_NUM ; Output message on the bottom Line. 
tH > 2 2 44 PUSHAW ; Output the broadcast message. 
4B'EF F 16 ; 45 PUSHAW UM 3 
1FAD‘EF F 199 8 PUSHAL MBY_ASG_DSCR é 
GF FB $A 4 CALLS @ ee IBSPUT_SCREEN : 
42 E9 1671 rh BLBC RO,99 3; Branch on error. 
00000000 * GF F 162% 4 CALLS #0,G*LIBSERASE_LINE ; Erase the rest of the Line. 
38 E 67B 5050 BLBC RO,99 3; Branch on error. 
1B 00002247°EF 1 53 167E 51 BBS #OVTSV_DCRT,OUT_DEV,20$ ; Branch if DECcrt terminal. 
1FAD‘EF 1980 6 MOVC3 MBX_MSG_DS R,- ; Save a copy of the Last message 
1FB1°EF 168C if X_MSG_DSCR+4 3 output so that in can be scrolled. 
1DFA‘EF 1691 5054 LAST BROCST BUF ; 
OOOIFAD'EF 00 1696 5055 MOVL BX_MSG DSCK,- 3; Save the Length of the message. 
WwFe*EF 169C 036 LAST_BROCST_DSCR ; 
1 88 16A1 5057 208: B1SB #CL$A_BROCST,- 3 Indicate that there is a broadcast 
00009471 "EF 16h; 038 BOT_CAD_LI 3 message on the bottom command Line. 
1 DO 16A 05 MOVL #SS$_NORMAL ,RO 
O00000008"EF  O0000000'FF OE 1o08 306 INSQUE @BUFADR,MSG_FRE_QUE ; Place message buffer in message free 
3 queue. 
St BA 1686 5062 998: POPR #*HCRZ,RBR4,RS> P 
05 1688 506 RSB 
1689 5064 
16B9 5065 
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4-5$ sats ri 33:32:88 CLIUTL. SR CISHW HWCLSTR.MAR; 1 si (93) 
-SBTTL Scrolling routines. 
-SBTTL SET_SCROLL routine. 
-ENABL LSB 


FUNCTIONAL DESCRIPTION: 


This routine translates the characters following an escape in the 
command buffer into a scroll command. If the — sequence indicates 
that one of the arrow keys has been cessed then the value stored at 
location v SCROLL (for vertical scro re or either CLSTR_H_SCROLL 

or LOCAL_H-SCROLL (for horizontal esedy, ng depending on which report 
is being displayed) is incremented or decremented appropriately. 


This routine also sets flags at location SCROLL_FLAGS if it determines 
that data has been scrolled off the left or top of the screen or clears 
the flags if the data has been restored. 


If the terminal type is DECcrt, and the display is scrolled up 
down, then bits are set in SCROLL_DIF corresponding to the Lines. 
which much be redrawn to complete the display. 


NOTE: This routine does not set or clear the flags that indicate that 
the data has been truncated at the right side or bottom of the 
screen 


CALLING SEQUENCE: 


JSB SET_SCROLL 


CALLED BY: 


READ_WO_PROMPT 


IMPLICIT INPUTS: 


Escape sequence stored in CMD_BUF. 


OUTPUTS: 


a 
$9595 S555552 559222 a am DoD DD DDD DD DDDDDD DDD DD DDD DDD 
DODODOOOOOOOOOODOOODOODOOODOOOODODODOOODODODODOOOOOOOOOONNOOOO0O 


SET_SCROLL: 
CMPB 


1008 e00020 


re: 


mo—-c0o—- © 

—mn— rn — 

ee ee ee 
CGeooon 

@fevaw——0o 


WN —OOOnouw 


o 

So 
rororoery 
n= 
PR 


V_SCROLL, CLSTR_H_SCROLL, or LOCAL_H_SCROLL updated. 
STROLL_FLAGS updated. 
SCROLL-DIF updated. 


10SB+4,#CSI : Did the user type an eight-bit escape 
3 sequence! 
BNEQ 10$ ; Branch if not. 
MOVB #*A/C/,CMD_BUF ; Substitute an open, bracket. 
MOVAL mD_Buf .R1 3; Point to open bracket. 
BRB ; Jump to common cote 
MOVAL MD ay RI ; Point to open bracket. 
BBC #DVT$V_DCRT,OUT_DEV.- : Branch if not Decert terminal. 


, lea — a 
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| Sowcy ane Smee SROLL rout ine. a=36P=1986 8 
16E2 $124 40$ : Right arrow? 
ame Roe te ee pepe | tet ever 
CHPU (RIT, POCRT LFT_ ; 14 
| pi eeten (HEL abs) BRETSO'CL STR, - : Branch 1¥ we're displaying the 
1 ; cluster report. 
03 0 OP E0 of 130 CURRENT REPORT , 308 ; Otherwise, don’t allow up or down 
reno * 4 31 lore 131 BRW ; scroll. 
170 : § 30$: CMPW (R1) ,@DCRT_UP_ARROW : Up hg 
como atm TE SI HERE Rhem ano | Fess 
MP . . : ; 
vsti aig ne 1f ‘ nah Hobg” SCROLL : mast be invalid escape sequence. 
OIAF O51 rig 1 , 
171 1 ; Right arrow? 
44 BF 6191 «P19. 8139 408: CHB (RID AVTSZ RTLARROW ‘Right arrow? 
1723 S14 tHE RIT OAVTS LPT ARROW =; Left erroy? 
ern a ee a : BSSOtD HT" Sarce atsptaying the 
cer 8 FSR aiee CURRENT REPORT , 50S De rere aa we ot Qo 
sa somes “| 31 «17 3 12 BRW 98 : scroll. | 
17 ; ),#VTS2_UP_ARROW ; Up arrow? 
1 ar 1 91 186 S142 sos: Bea. DEC SCROLL ; Scroll up. 
t ie 12 CMPB (R1),AVTS2_DWN_ARROW : Boun prrou? 
42 8F 61 91 1740 150 JEQL INC V_SCROCL 5 feet be lnvattd encene sequence. 
0180 31 174 151 
1748 5152 pie 
1748 5153 DEC_V_SCROLL ; Already scrolled all the way $ 
° TSTi V_ SCROLL ‘ 4 Ll. 
O000045C"EF 05 Hoe 13 Jeat 999$ NES ; Se eet al times we are 
0000430°EF 06 1753 156 INCL SCROLL_LI : allowed to scroll up. 
: 1759 3157 ; Scroll display down. ote 
SC°EF D7 1759 5158 DECL V_SCROLL ; Branch if we're not all the way . 
aioaan or ile 178 123 It + ae MORE _UP,=- : Otherwise, clear the up flag. 
04 8A 1761 SCROLL-FLAGS : inal is a DECert. 
nt smoot’ Ean 1768 189 weg) 2A nagueneigeen tet § a branch. fo set refresh flag. 
BRW ° ing region 
ge DUE ee on, BR SP eciononta erwtat rane tnt silent 
1778 3163 MOVL FIRST DATA_LINE,LINE_NUM; Set the cursor to the first Lin 
00002248" EF eooneeee 9 1776 $166 Pushay COL°NOR ; data. 
0000¢ abet Ha Hi 169 CALLS. #36" JBSSET_CURSOR po cor. 
|: Oo ey 
00000000'GF 00 FB 1 \¢ ha SEt REGION FULL : Reset the scrolling region to use the 
17 - - ; full screen. 
Oeee OT glia ROTL #1, SCROLL_DIF,SCROLL_DIF: Force the top Line of data to be 
Soonnesa*cr §=—onnoense ee. er SM alt? BSS FIRST _DATA_LINE,~ ; redrawn. 
orks 3954" p Re Ie ates ‘ CROLC_DIF 7808 “pane 
™ “10831 Be 178 gos: BRU O998 3 Finish up. 
17 
1FE8 3180 INC_V_SCROLL: 
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0002248 EF 
00000000 ° GF 2 


00000000°GF 00 
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12 00000000° 
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17¢5 «5181 BITL #CLSSM_ANY_SCS,- 3; Any SCS fields being displayed? 

3 18 CLASS SELECT ee ae ace es 
A ! ? JEQL 9 :; Branch if not. 
17D 185 ; Since we don't really know how many Lines might be displayed in a given 
17D 1 § 3; report, we don't really know how aeny times we can up-scroll. Because of 
17D 187 ; this, we Limit the number of times the user can hit the up arrow before 
120 : 3 3 we get a chance to redraw the screen and see how many more Lines we have. 
1705 5190 ° TSTL ROLL_LINES ; Any more Lines to be scrolled? 
1708 5191 JEQL . : Branch {f not. 
17E 136 DECL SCROLL LINES : Now there's one less. 
17E6 519 INCL V i; Scroll display up. 
17EC 5194 BBC #BvTSV_DCRT,OUT_DEV,90$ ; Branch if terminal isn't a DECcrt. 
17F4 5195 BSBW SET_REGION_DATA ; Set scrolling region to include only 
17F7 138 ; _the data area of the screen. 
17F7 519 VL LAST DATA_LINE,LINE_NUM ; Set the curso” to the Last Line of 
1308 198 PUSHAW COL_RUM ; data. 
180 199 PUSHAW LINE_NUM : 
1 of 00 CALLS #2,G"LIBSSET_CURSOR 3 
181 01 JLBC RO, ; Branch on error. 
181 8 CALLS #0,G*LIBSUP_SCROLL 3; Scroll up one Line. 
18 0 JLBC R ; Branch on error. 
18 04 BSBW SET_REGION_FULL ; Reset the scroiling region to use the 
1828 05 ; _full screen. 
1828 06 BBC #SCRSV_MORE_DWN,- ; Branch if the bottom Line doesn't 
18 p 07 SCROLL~ FLAGS, 90$ ; need to be drawn. 
18 08 ROTL #-1,SCR L_DiF,- ; Force the last data Line to be 
i$ 09 CROLL : drawn. 
1840 10 BBSS LAST DATA_LINE,=- ; 
1846 11 SCROCL_DIF ,90$ : 
184C I 90$:  BISB  #SCRSMMORE_UP!SCRSM_MORE ,- 
Hd 1 SCROLL_FLAGS : Indicate screen can be scrolled down. 
133 14 BBC #DVTSV_DCRT,OUT_DEV,140$; Branch if terminal isn’t a DECcrt. 
' 38 1? BRB 999$ ; Otherwise, don't set the refresh flag. 
180 9 INC_H_SCROLL : 
185 18 TST NUM_FIELDS ; Any fields to be displayed? 
186 1 BEQL :; Branch if not. 
186 0 BBC #RPTSV_CLSTR,- ; Branch if we're not displaying the 
1867 1 CURRENT_REPORT,100$ :; _cluster report. 
L LSTR_H_ LL ; Otherwise scroll the cluster report 
H INC CLSTR_H_SCRO Otherwi LL the cl 
187 4 BRB 110$ ; Branch to common code. 
187 5 100$: INCL LOCAL_H_ SCROLL 3 Scroll the local report left. 
! me § 110$: DECB NUM_FTECDS 3 decrease number of times we can scroll 
; left. 
1 81 g BISB #SCRSM_MORE_LFT!SCRSM_MORE ,- 
1 SCROLL_FLAGS ; Indicate screen can be scrolled 
1 ; 0 ; right. 
' . 1 BRB 140$ ; Done. 
188A : DEC_H_SCROLL: 
188A 4 BBC #RPTSV_CLSTR,=- : Branch if we're not displaying the 
1 5 CURRENT_REPORT,120$ : cluster report. 
1 § TSTL CLSTR_H_SCROLL ; Is the cluster report scrolled all 
189 ; the way to the right? 
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06 = SET_SCROLL routine. arse S8e 88:38:09 FOUTS aeseuucr stamens: P28 19S, 
—€ 13 1898 BEQL 999$ ; Don't scroll anymore if so. 
00000466 "EF Dd : He 33 DECL CLSTR_H_SCROLL 3 Otherwise scroll the cluster report 
s Ff e 
19 12 118A 4 BNEQ 135$ : Branch if the cluster report isn't 
18A 4 ; _scrolled all the way to the right. 
10 #11 ! . $7 Beg 1308 ; Branch to common code. 
00000468"EF DS 18A4 45 120$: TSTL LOCAL _H_SCROLL ; Is the local coport scrolled all the 
18AA 28 ; way to the right? 
18AA 4 BEQL 999$ 3 Don’t scroll enysers if so. 
000004668"EF OD ; Bs ‘3 DECL LOCAL_H_SCROLL 3 ochorwree. scroll the local report 
3 of i 
a ¥ 5 BNEQ 135$ 3 Branch if the local report isn't 
18B4 3) : scrolled all the way to the right. 
02 8A 1884 § 130$: BICB #SCRSP_MORE _LFT,- i; Clear left flag. 
000008 7a Er 1886 5 SCROLL FLAGS 3 
25'EF 9% 1308 : 135$:  INCB NUM_FIELDS 3 increese number of times we can scroll 
; left. 
00000476"EF O08 C8 1864 56 140$: BISL #MFSM_RIP,MISC_FLAGS 3; Set flag to indicate that the screen 
18C 5 ; should be refreshed. 
00000476"EF 00000100 8&F 4 + +5 28 999$: Bist #MFSM_SCROLL,MISC_FLAGS ; Indicate we just scrolled. 
1804 60 
18D4 61 -DSABL LSB 
1804 5§ $6 
1804 526 
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FD43 BSB 
046 00 
00 0000047A‘EF 
Q 998% 
00000471 ‘EF gor 
00002248'EF 90007760" F 
00002222°EF 0 8F CMPW 
4 BEQL 5$ 
4C°EF COL_NUM 
4 M4 INE 
iS BRB 
4C‘EF : 
48'EF NUM 
7 Be R 
‘GF 3 : 
JLBC 
04 118 
0000047A'EF ; 
12 $ 
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»SBTTL CHECK_MORE routine. 


. 
> 


FUNCTIONAL DESCRIPTION: 


This routine is used to output the ‘MORE’ scrolling signals at the 
bottom of the display. It first calls the routine which outputs 
broadcast messages (giving the messages ert over the scrolling 
signals). It then checks to see if any scroll flags are set. 

there is a scroll flag set it then checks to see if any information has 
been output on either of the command lines (the bottom two lines of the 
gis lay = the top Line has priority). If there is no information 
ndicated on one of the Lines it adds the "MORE’’ scrolling signals to 
the screen buffer. 


CALLING SEQUENCE: 
JSB CHECK_MORE 
IMPLICIT INPUTS: 


TOP_CMD_LINE and BOT_CMD_LINE indicate the type of data currently being 
displayed in the command scroll region. 


IMPLICIT OUTPUTS: 


+» it da signals output to the screen buffer if no other data is being 
displayed in the command scroll region. 


RETURN STATUS: 
SSS_NORMAL or failed status returned in RO. 


CHECK MORE : 


OUT_MSG ; First see if there are any broadcast 


3 messages to output. 
CMPV #SCRSV_MORE_RT .#4,- ; Has any data been scrolled off the 
SCROLL-FLAGS #0 3 screen or truncated? 
JEQL ; Branch if not. 
TSTB OT_CMD_LINE : Is the bottom command Line blank? 
JNEQ 3; Branch if not. 
MOVL LAST_LINE,LINE_NUM ; Output on the bottom command Line. 
r WNARROW,SCREEN-WIDTH  : Is the terminal width 80 columns? 
Q 3; Branch if it is. 
PUSHAW U ; Output °° More ‘"’. 
PUSHAW LINE_NUM ; 
PUSHAW BORE TABS : 
5$ PUSHAW COL_NUM ; Output ‘More “’. 
PUSHAW LINE_ ; 
PUSHAW RE_DSC : 
7$ CALLS @# + So} 1SPUT_SCREEN : 
RO,99 :; Branch on error. 
6 #SCRSM_MORE_UP,- : Has the screen been scrolled up? 
CROLL “FLAGS : 
BEQL ; Branch if not. 


rae 10 
AX/VMS Macro V04-00 | (33) | 
V9-$E0-1988 33: a: OF eee tUTe SReSguucestR.mAR; 1 | 
Show Cluster Urility P=] moet 
PUSHAY REEN i; 
’ 194 TesPuT. sc ; h on error. 
gear ' bd 1 tg g BLBC 3 6 L : Sump to commpn code. 
00000 7B 0 eS | GF : 2 Sas RE ; Output : 
ose i 1986 § 108: PUSHAW ni 1-64 [BSPUT SCREEN Ire there core Lines 0¢ dete then éen 
o000080u Feo $0 1961 9 208: BITS aSCRSM_MORE_DUN, - i “be displayed? 
4 i 1964 20 ROLL-FLAGS * Branch it nof,. 
00000474" EF 13 1398 ? OL 308 ; Output 
PU ERD CREEN : 
' 19 ne TBsPuT_s : h on error. 
gonpoose J ie 1998 ; cabs nd $08 : Juno to, song code. 
money 5030 EF TTA S88 $08 : Qutbut cake 
90000003" eF 3 1985 ; 608 CALLS aicGctlasrur screen i Has the screen been scrolled r ght? 
a 19 #SCcr 4 
00000000 ' GF 01 £8 + C 9 50$ ITB SeROLL FL FLAGS : Branch it not. 
0000047A" EF ; i0 EQL ; Outpu 
goooooen'er $F 1995 $31 yy #1 .GSLIBSPUT_ SCREEN PR ee, 
Gre 1 FB rk BLBC) =—s_- RO, 99 ; Jump to, common code. 
eneenecdiad™ 9 tS 19A8 83c4 BRB + : Output * 
L 45 60$: PUSH 7G6*LIBSPUT_SCREEN ; on) 
Soono0DS*EF SF RAT 4g CALLS #16" 188 ht 4A by eee 
00000000°GF 1 FB 19D $34 ves: Site sateen “PORE ART.~ 
01 $3 1987 $348 708: SCROLL FLAG ; Branch if, not. 
0000047A EF 0 EOL 998 : Output ">". 
6D 13 1985 2 PUSHAW MORE RT acer : 
oooooce'EF $F 19C0 9551 CALLS #1,G"LIBSPUT_SC 
00000000" GF re 19¢b 33 99S: RSB 
19¢ 
19CE 5355 
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- Set scrolling region routines. 


ao 
Ww 
 ~ 


» SBTTL 
8 . -ENABL LSB 
FUNCTIONAL DESCRIPTION: 


The followin four routines set the scrolling regions of the terminal. 
The four regions are defined as follows: 


FULL The yet screen : 

DATA The Line imediately following the header up to the 
command region. 

COMMAND The last two Lines of the screen. 

HELP The Line immediately following the header through the 


1 
Hf 
196 
19¢ ; 
19CE 3 
19CE 3 
IEE 3 
19C 3 
19CE ; 
Ice ; 
19 : 
Ite 4 : last Line of the screen. 
19Ce 3 > CALLING SEQUENCE: 
19CE 5375: JSB SET_REGION_FULL 
19CE 76; JSB SET_REGION_C D 
19CE 5377 ; J$8 SET“REGION-DATA 
443 , : JSB SET_REGION_HELP 
19Ce 80 > CALLED BY: 
19cE 8¢ ; READ_W_PROMPT 
19CE 83 ; DEC_0_SCROLL 
19ce 8388 SCROLE TuOr” 
19Ce 86 ; GET_HECP 
19Ce 8 : RETURN STATUS: 
19CE 5390 ; SS$_NORMAL or failed status returned in RO. 
19Ke 8302 ° 
19CE 38 SET_REGION_FULL: 
00002250'EF - 19CE 94 PUSHAW FIRST_LINE ; Reset the scrolling region to use 
o000¢260° FF F 19D4 95 PUSHAW LAST_CINE ; _the full screen. 
A 11 1308 6 RB 0$ ; Branch to common code. 
19DC a8 SET_REGION DATA: . 
9000 e ee EF F 19D PUSHAW LAST_DATA_LINE 3 Set the scrolling region to use only 
0000 =e F 19e8 4 ° PUSHAW FARST_DATA_LINE 3 the data area of the display. 
C 1 3 ? BRB 10$ ; Branch to common code. 
19EA 54 ; SET_REGION_COMMAND : 
00002248'EF  0000225C'EF 0 19EA 5404 CMD_LINE ,LINE_NUM 3; Set the scrolling region to the Last 
20003 Ee i Ho ? 5 pe LAST _LINE ; two Lines of the display. 
§ 11 ys ; r 5 ‘4 : Branch to common code. 
1A ; 109 SET_REGION HELP: 
00002248°EF 07 0 1A 219 mOuL #HEADER_END,LINE_NUM ; Set the scrolling region to the area 
2260"EF i 1A0A 541 PUSHAW LAST_LIRE ; from the Line following the header 
48'EF F at ti¢ PUSHAW LINE _NUM ; to the Last Line of the display. 
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1A1 420 -SBTTL AST routines. 
1A1 421 ;¢+ 
1A1 4 § 3 
1A 2 i 3; FUNCTIONAL DESCRIPTION: 
1A1 425 ; This routine is onvored when data has been placed in the mailbox 
1AIE 54 § 3 associated with o teraiael. This data may be from a broadcast 
TA1E 5427 ; message, ynsot ic ted nput from the terminal, or terminal hangup. 
TA1E 54 8 3 This routine s Hs be egts an event flag and return so that we do 
1A1E 5429 ; not remain at AST delivery very long. 
1A1E 5450 ; 
1A 431 ; OUPUTS: 
1A1 432 ; 
WA1E 5435 ; AST event flag set. 
1A1E 5434 ; 
1A1E 5435 ;-- 
1A1E 54 $ 

0000 Ae 437 .ENTRY AST_DEL,“M<> 
1A 438 SSETEF_S - ; Set the AST event flag. 
1A20 5439 EFN=#EVFSV_AST_FLAG 3 

04 1A29 5440 RET 

1A2A 5441 
1A2A 5442 


Ww 
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FUNCTIONAL DESCRIPTION: 
This As pee: is gatoree vF hen the usee types control-C on the Sovatnal. 


1A2A tte 3 

1A2A 5445 ; 

1A2A £68 3 

Ik tg | 
ACA 5449 : It sinp sets the lag to indicate that the user has requested 
1A rn 2 : that the program exit and then transfers control to the exit routine. 

Aga 345¢ : OUTPUTS: 
1AeA 5454; Exit flag set at MISC_FLAGS. 
1A2A 5455 ; | 
1Agk $039 | 
0000 142A 9458 .ENTRY CNTRLC_AST_DEL, “Mc 

50 01 DO 1A2C 5460 MOVL _#SS$_NORMAL RO ; Indicate normal exit. 
1A2F 5461 SEXIT_S 3 Exit. 
04 1A38 re | RET 
1A39 546 
1039 5464 
| 


SHWCLSTR Show Cluster Utilit % -SEP-1984 52: AX/VMS M v04-00 Pp 113 
v04 AST routines. . PrSEC=]SSs S3:52:89 PARI MES Bac e Vth Oe nans1 20° 133, 
1A 4 § +4 
1A39 4 | 
468 : FUNCTIONAL DESCRIPTION: 


This routine queues a read over the mailbox channel which has been 
associated with the terminal and then enables the mailbox. 


CALLING SEQUENCE: 
JSB SET_AST 
CALLED BY: 


INIT 
MAIN_CONT 
RETURN STATUS: 
SS$_NORMAL returned in RO. 


i a a a a a dd od 
>>r>rrrrrrrrr>r>r>r>r>r>r>r>r>>r?rrr Yr > > > > PrP rrrr,r,r,r>r>r 
DWDODODO OO OPRAAAAA A AWN NNNANAAAANNIANAAAAILA. AAAI 
DWDODOODWDUMIAOMOMOOMOGCODOODOOVOOOOVOOOOOOVOOOOOOOOOOOO 
FUSSY 

PV PV SUSU BB BB BB PEP PPP PPP PPP PPP PPP PPE ES 
SDOOSOSGOCGOOSOOOOOO0O0 OOOO OO 000009000009 090908 INI 
OWONAUE WN O OD NAME WIN O OD NAME WIN O OONOAU ES Wi OOo 


SET_AST: 
$Q10_S ; Set the AST. 
CHAN=MB 
FUNC=#108. WREADVBLK.- 
10SB=1 
5 ASTADR=ASt _DEL.- 
5 P1=MBX_BUF,- 
5 P=amBR BUF _LEN 
2c 50 =«ED9 : BLBC 3; Branch on error. 
2 $Q10_S _ ae 3; Enable mailbox. 
5 Unt 6 ont TeveLx: 108M, ENABLMBX ,- 
5 10SB=I0SB,- 
5 P1=CMD_BUF ,- 
: P2=#0 ~ 
50 01 00 5 MOVL §#SS$_NORMAL RO 
05 ; 99$: RSB 
5 
: -ENABL LSB 


2 oo ——— —— = ————_ 
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1A9 ++ | 
1A9 
1A99 FUNCTIONAL DESCRIPTION: 


99 This routine is used to erase the screen from the end of the report up 
to the Last two Lines of the display. It also erases the Line where 
the scrolling signals appear if they are being output. This insures 
that the scrolling signals always reflect the correct status and also 
produces a blinking effect. 


This routine also determines if the bottom two Lines of the Clap ay 
hould be scrolled. This scroll ng is cong only if there is additional 
nformation on the bottom command line or if there is no information 

on the bottom command Line and the top command Line does not contain 

a broadcast message. The results (listed in priority) appear as follows: 


1) Command input and error messages are scrolled in the command region 
on each refresh until they disappear from the display. 


>>r>rrrrrrrrr>rrrr>r 
wouowowowowowowowowov0no oO 
wooowowowowowowowovonso 


2) Broadcast messages are scrolled in the command region until the last 
broadcast message is on the tor Line in the command region at which 
point it is left there until the user takes action to remove it. 


3) Serott ing signals are erased and are restored after the next update 
on the first blank Line in the command region. 


CALLING SEQUENCE: 
JSB  -_—- ERASE_PAGE 


a ek a a dd 
= . >> 

ono 

oo 


1A99 CALLED BY: 

1A99 

1A99 DISPLAY_END 

1A99 

1A INPUTS: 

1A99 Number of the Line following the report is stored in LINE_NUM. 

+ IMPLICIT INPUTS: 

1A99 SCROLL_FLAGS have been set to indicate the direction the screen can 


be scrolled. 
TOP_CMD_LINE and BOT_CMD_LINE indicate the type of data currently being 
displayed in the command scroll region. 


IMPLICIT OUTPUTS: 


Bottom two Lines of display are scrolled. 
TOP_CMD_LINE and BOT_CMD_LINE are updated. 


RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 
REGI~ TER USAGE: 
R2 - Used to determine when all the Lines have been erased. 
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ERASE_PAGE: 
MOVL 


ae 
>>r>rr,r 
oo0ono 


boo>>> 


_ ocooa—- ome 
S= SelSSu 25S 
WWIDA SO ON MDOA™M OND AOOCOCOCOCCOMNOW PWS TM PLEO 


ke ee a a bs 4 ss a 2 a — — — 4 — 4) — 9 4 > — 4 4 9 4 


BDOOQWODWOOOSC OOO OO 00 OO OW 0900000909 09908 INI NINN NOOO 


DOWDWDWOWOWDOWODY Yr rr rrr rrrrrrrrrrrrrr>r 
DORE PEP UNWIN = Bt OOO TM MMM MMMNSOOSOSS OO mma 

PARAEXPAPAA DAA DG PVPS USUI VSS VSS 
FARO OONAUES WIN OOD NAN E WIN HO OOD NIA UNE WN SO OD NAUE WN O OONAUE WN OO 


POPUP PV PUPP DPVLVLVLVLVLVLVLUSULUSVSVSUSVSUSVSUSTSIISISVOSTSTSISTSTST SIO 


PAAAAAAOAAAAAAAO 
ROMERO me Os es es we es 


PSMNWETM OWNS BS LMUOAO 


wey 


#SS$_NORMAL ,RO 


BBS 

CMPL §- NUM_LTNES,- 
PRIOR_NUM_LINES 
BEQL 

PUSHR  #*M<R2> 

MOVL —_ LAST_DATA_LINE,R2 


10S: CMPL LINEZNUM.R 
BGTR 1$ 
BSBW  ERASE_LINE 
JLBC ~=—_« RO, 998 
BRB 10$ 

11$: POPR #*M<R2> 
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; Assume success. 
#MFSO_RIP,MISC_FLAGS,5$ ; 


Branch if refresh in progress. 


; Do we have the same number of Lines 


of data as last pass? 


; If so skip the erase. 


; Erase all the remaining data. 
; Any Lines to erase? 


Branch if not. 


; Erase one Line. 
; Branch on error. 


Loop. 


If we are outputing ‘‘more’’ on the bottom Line then erase the Line so that it 


reflects the correct status. 


148: MOVL NU 


M_LINES,= 
PRIOR NUM LINES 
SUBL3 4 NUA_LINES,~ 


15$ BBC #SCRSV_MORE ,- 
SCROLL“ FLAGS, 208 
CMPV = WSCRSV“MORE_RT,#4,- 
SCROLL “FLAGS #0 
BNEQ ss} 
BICB #SCRSM_MORE,SCROLL_FLAGS 
16$:  TSTB  B0T LINE 


BNEQ ee 
MOVL LAST_LINE,LINE_NUM 


BSBW ERASE _LINE 


JLBC —- RO, 998 

208: STL ROLL_DELAY 
BEQL 
DECL § SCROLL_DELAY 
BRW 99$ 

30$: TSTB BOT_CMD_LINE 
JNEQ SCROLL. TWO 
TSTB = TOP_CMD_LINE 


99$ 
BITS #CL$M_BROCST,- 
TOP_CAD_LINE 
99$ 


; Save number of Lines for next pass. 
; Save number of times we can up scroll. 
; Branch if not displaying the CLUSTER 


class. 

Otherwise, adjust number of Lines that 
can be scrolled. 

Branch if none of the scroll flags 
have been set. 

yO ys of the scroll flags still 
se 


Branch if so. 
Otherwise clear the summary flee, 
Is the bottom command Line blank? 

Branch if not. 

Get the number of the bottom command 


ne. 
Erase the Line that we are outputing 
more’ on. 


Branch on error. 

Time to scroll the bottom two lines? 

Branch if so. 

Count down the intervals before it's 
time to scroll. 

Done for now. 

ar | information on the bottom command 

ne 


Branch if so 

ay information on the top command 
Line? 

If not, no need to scroll. 

Is there a broadcast message on the 
top command Line? 

If so, don't scroll. 


00000000'GF 00 

8F 

03 00002247"EF 02 
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0084 
00002247°EF 9 
00000471 EF 
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00002248'EF Soe ss ec ee 
0000224C'EF 
4's aaa 3A 
00000000 ' GF : 
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00000471 'EF 


00001DF 2°EF 
eneeeeedinal 


00000470'EF 
32 
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9000224 EF 
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11 
71°EF 
00000470'EF 
00000471 'EF 
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671 80$: 
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99$: 
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SCROLL _TwO: 
BB 
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ge 9be 33:32:08 


#DVTSV_DCRT, OUT DEV, 40$ 
SET_REGION_ COMMAND 


LAST_LINE,LINE_NUM 
COL_RuM 


LINE_NUM 
#2,G"LIBSSET_CURSOR 
’ -GoLIBSUP_SCROLL 

RO,99 

#DVTSV_HARD ,OUT_DEV,43$ 
80$ 

#DVTSV_UNKNOWN, OUT_DEV,- 
BOT_CMD_LINE 


50$ 
CMO_LINE,LINE_NUM 
COL NUM 


LIME NUM 
#2,G"LIBSSET_CURSOR 


#CL$M_BRDCST,- 
BOT_CAD_LINE 


LAST_BRDCST_DSCR 
#1,G"LIBSPUT_SCREEN 
RO,99$ 
SIGNAL 
#0,G*LIBSERASE_PAGE 
RO,99$ 
80 
TOP_CMD_LINE 
998 
CMD_LINE,LINE_NUM 
OL” NUM 

NE_NUM 
#2,G"LIBSERASE_PAGE 
BOT_CMD_LINE,- 


TOP" CMD“LINE 
BOT” CMD“LINE 


z2are 
one 
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Peer (38) 


Branch if terminal is a VT52 type. 
Establish a scrolling region. 


Branch on error. 


Set the cursor to the Last Line. 


Branch on error. 
Scroll up one Line. 
Branch on error. 


Jump to common code. 
Branch if output device isn't 


hardcopy. 


py 
Otherwise, jump to common code. 
Branch if terminal type is unknown. 


~ information on the bottom command 
Line? 


Branch if not. 


Set the cursor to the top command 


line. 


Branch on error. 


Is there a broadcast message on the 


on the bottom command 


line. 


If not, must be error message. 
Output the last arpeccast message on 


the top command 
Branch on error. 
Jump to common code. 


ne. 


Output the Last error message on the 


top command Line. 


Erase the bottom Line. 


Branch on error. 
Jump to common code. 


ay information on the top command 
n 


e? 
Branch if not. 


Erase the top command Line. 


Branch on error. 


Bottom command Line information now 


on the command | 


Line. 


ne. 
No information on bottom command 


SS 


-—_—_—_—_— 
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oe -SBTTL Display header generation. 


: FUNCTIONAL DESCRIPTION: 
§ ; This routine combines the class titles and the field titles to form the 
8 
.] 
0 
4 
38 
94 
95 


display header. It also adds the necessary strings to draw the box 
around the header. It outputs a message identifying 
displays the time in the upper right hand corner. 

CALLING SEQUENCE: 


JSB GET_HEADER 


the report and the 


CALLED BY: 
DISPLAY_CLU 
DISPLAY_SCS 
DISPLAY ~PTP 

OUTPUTS: 


The entire header is stored in the screen buffer for 
output using LIBSPUT_BUFFER. 


RETURN STATUS: 
RO = $S$_Normal or failed status from LIBSPUT_SCREEN. 
REGISTER USAGE: 


NOOO 
ooo 
@wooo 


- Used to in formating the system id. 

R10 = Used to in formating the system id. 

R11 - pergeee to descriptor for data to be stored in the screen 
uffer. 


GET_HEADER: 
PUSHR #*M<R11> 
BBS #MFSV_RIP,MISC_FLAGS,30$; Branch if refresh in progress. 


When not doing a refresh, just output the time in the upper right hand corner. 
If the CLUSTER class is being display along with any SCS class, then display 


the time when GET_HEADER is called for the CLUSTER class only, so that we 
don't update the Eime twice. 


tt I II IOOOOOOOOO 


0800 8F Ht 
28 00000476"EF O03 €E 


ah ee a ss a ts ds es ts a ss ss 2 2s 9 2 4 4 

AOOOAAOAAQAAAAOAAQANAOAOAAOAAAQOAOAOAAAAAAAAAAAQAAOAAOAQAAAAAQAAQAAQOOAAN 

DPDELD GPs B Be BB BBE PEPPERELL PPP EEE EE 
DERM IM IMINIMNAIMNINI BPA AAA AAA AA AAA AAA AAA AAA AA AA AA AAA AA AAA AA OS 


So bee bem Dm i Dein itn >it Dit itn tn itn tn itn i te Di i i i NB Tt ee St 
WANA AIA AILIPINIPOPSNMONINININYINY 
NONE AN @ O OD NAUE WIN 9 ODNAUE WN O OONOAUE WN — 


PUPP DPD DPVDPV PV DVDPVLIVLDVIVDVLVPVDIULVIVLUSDUSUSUSUSUSUSVSUSI SSIS SIIIION 


00 «€1 BBC #RPTSV_CLSTR,- : Branch if displaying the local report. 
10 00000000" EF CURRENT REPORT, 10$ F 
00 «£0 BBS #CLS$vV_CLUB,- ; Branch if this header is for the 
08 00000001 ‘EF § CLASS, SELECT, 108 : CLUSTER class. 
0 €0 BBS #CLS$V_CLUB,- : Branch if we have already output 
09 000021FC'EF 4 SAVED CLASSES, 208 : the time. 
O1FS = 30 A 10$: BSBw OUTPUT_TIME ; Output the time. 
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onl 


— 
iJ 


99 NSF NOU FPOWS NNO PUNO VNSWS UENO HL MoOeOMMMMMD OOMORA TOO ROSS PWO 


7 N N | 
35 208: ADoL ab TNE NUM 


Skip past header info. 
And we're done. 


in CLASS_BOX_BUF and the Line for 


7 
0404 30 7 30$: BS8W s UUTLES ; Build the title Line in TITLE_BuUF. 
JLBC RO,9998 3; Branch on error. 
01 OOO0021C4°EF 01 CMPL HEADER SIZE, #1 3 are spore oe classes or fields being 
3 splayed? 
0% 12 BNEQ 408 3 Oranch 47 se. 
OOOO2Z1C4°EF D4 CLRL HEADER_SIZE ; Otherwise, make sure the first field 
; delimiter doesn’t get displayed. 
0608 30 o 40$: BSBW GET GLASSES ; Build the class Line in CLASS_BUF. 
9 JLBC RO,999$ 3 Branch on error. 
05 00002247°EF 91 4 9 BBC #OVTSV_DCRT,OUT_DEV,50$ ; Branch if terminal isn't a DECcrt. 
O2F4 30 ICA BSBW © BUILD_BECCRT_BOR ; Get the four lines of data that make 
A 3; up the boxes around the header. 
03. «17 A BRB 60$ 3; Jump to common code. 
0296 30 50$: BSBw BUILD_VT52_B0x ; Build the Line for above the classes 


above and below the field titles in 
FIEL®_BOX_BUF. 


60S: BBC #RPTSV _CLSTR,= 


; Branch if displaying the local report. 
CURRENT _REPORT,90$ Playing p 


00 
7B 00000000’ EF 


SSNS 


~o 
So 
a a a a ee a ee a ee ee a ee ee ee a 
5 090969 09 69 G9 G9 G99 G9 SI SISSIES OOS DDO OS TTT ES BS EEE 
FWP 9 OONOAUE WIN 9 OD NAME WIN 9 ODNAUE WN O OONOAU EWN) OOOVNO UE WO 


SVS SCS SCY SS GS SSG GG FGAHAAAAAOAOAAAAAAAAAAAAAGAOOOOOCAAOAOOOAAAAOS 


2 
AE 5 
AE 5 
AE 5 
a5 8 
po 61 B6 5 BBC #CLS$Vv_CLUB,- 3; Branch if this header isn't for the 
31 00000001 "EF B8 5 CLASS. SELECT, 70$ : CLUSTER class. 
O00021C4"EF D0 BE 57 MOVL HEADER _SIZE,- 3; Save size of CLUB header. 
000021C8'EF C4 Be CLUB HEADER. SIZE ; : 
aoe og TM C 7 MOVB NUM_FIELDS,=- : Save the number of CLUB fields being 
00427°EF C 27 CLUB_NUM FIELDS ; displayed. 
00co) =O. « 330 D 7 BSBW OUTPOT_ ; Output the display descriptor message. 
QOOOOO7E BF D035 D7? «57 BITL #CLSSM_ANY_SCS,- ; Are any SCS fields being displayed in 
000021FC*EF D 57 SAVED_CLASSES 3; this report? E 
03 1g E ef BNEQ 65$ : If so, don't output the time yet. 
oi? 3 E 7 BSBW OUTPUT_TIME ; Otherwise, do it now. 
00002248'EF 06 E7 5773 65$: INCL LINE_NOM ; Update Line number. 
4— 11 ED 57 BRB : Branch to common code. 
000021C4°EF dO E 775 708: MOVL HEADER _SIZE,- 3; Save size of SCS header. 
000021 ier FS 57 SCS_HEADER_SIZE : 
00000425'EF 90 F 7 MOVB NUM_FIELDS,- ; Save the number of SCS fields being 
000 rer 00 57 SCS"NUM_FIELDS ; displaye s 
0 €1 779 80$: BBC #CLS$v_CLUB,- 3: If CLUB bit is clear we need to output 
24 Q00021FC'EF 7 SAVED CLASSES, 90$ ; the display descriptor. 
e's os BA 91 7 CMPB SCS_NOM FIELDS,- 3; Are there agre SCS fields than CLUB 
$0004 "EF 13 57 UB_NUA_FIELDS : fields beiJng displayed? 
0B 18 1 7 BGEQ :; Branch if so. 
00000427'°EF 90 1 7 MOVB CLUB_NUM_ FIELDS,- 3; Otherwise, Limit left-scrolling by the 
000004 58 7 NUM_FIELBS : number of CLUB fields. 
013A = 30 786 85$: BSBW OUTPUT_TIME ; Output the time. 
00002248'EF 08 (C0 7 ADDL r] LINE _NUM ; Skip past the CLUB display area. 
Og 11 7 BRB 106 ; Branch to common code. 
0 Hi 789 90$: BSBW OUTPUT_DDM ; Output the display descriptor message. 
4 8 0 7 BSBW OUTPUT TIME ; Output the time. 
00002248'EF 06 . INCL LINE_NOM : Update Line number. 
58 00000763 6F 43 795 100$:  MOVAL CLASS_BOX_DSCR,R11 ; Point to descriptor for top of box. 
071F 4 79 BSBW DRAW_CINE ; Output top of box. 


eee oe 
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48 50 €9 1047 5795 BLBC 9$ : Branch on error 
58 0000159 fh 1D4A £38 MOVAL cLAgs DSCR,R11 ; Point to descriptor for the classes. 
7 3 1051 57 BSBW NE 3; Output class nenes. 
38 5 E9 1054 ree BLBC 3: Branch on erro 
5B O000096B°EF DE 1 7 MOVAL Sh ee 3 Porat A descriptor for Line above 
; d names. 
979° 30 10 . ° BSBW DRAW_LINE 3 quteus as bine. 
gf 0 € 106 § BLBC RO,999$ ; Branch on erro 
58 O000118B'EF DE 1p 4 ; MOVAL TIfLE_DSCR.R11 ; Point t to descriptor for the field 
96F8 3 1beB $8 BSBW DRAW_LINE : Output the field names. 
21 3 E 1066 86 BLBC 3; Branch on error 
dle? oar 3 8 34 EF 1 €1 #10 BBC #OVT$V_DCRT,OUT_DEV,110$: Branch if terminal is not a DECcrt. 
OB73"EF DE 1079 5808 MOVAL FIELD_BOT BOX _DSCR.R 11 ; Point to descriptor for Line below 
1080 5809 3 — field names. 
07 +11 «+1080 5810 BRB 120$ ; Jump to common code. 
5B O0000968°EF DE 1082 5811 110$: MOVAL FIELD_TOP_BOX_DSCR,R11 : Potnt to descriptor for Line above 
1089 3i§ : the field names 
O6DA 30 1089 3! 120$: ®8SBW DRAW_LINE : Complete the box “around the field 
03 50 €9 1D8C 5814 BLBC RO,999$ 3; Branch on error. 
1D8F 281? 3 «names. 
50 01 DO 1D8F s18 998$: MOV #SS$_NORMAL ,RO 
0800 8F BA 1092 5817 999%: POP #*m<Rii> 
05 10% 5818 RSB 
1097 5819 
1097 5820 
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> 
+ 


FUNCTIONAL DESCRIPTION: 
This routine is called by er HEADER only if we are doing a refresh 
pass. It outputs the description of the display which appears on the 
top Line of the report. 

CALLING SEQUENCE: 


JSB OUTPUT_DDM 


onoooovono 


CALLED BY: 
GET_HEADER 
OUTPUTS: 


Display discription message is output to the screen buffer. 
Length of message is stored in DDM_SIZE. 


VSVVIVTVTVCVTVTCVMVVCVTVVTVVTVTVVVTVVVVVCCCCC0"0"0 


OWOOOOOOOOOOO DOODOWOOOVooJowWJoOovonoO 
SSE 


PAN 9 ODNA NE WWIN SO OO NAME WIN OS OD NIA UI EWI 0 ODNOAU EWN OOD NAUEW 


ee ee ne eee YS SS | 


4 
4 
4 
d 
r IMPLICIT OUTPUTS: 
7 LINE_NUM is set to 1. 
: RETURN STATUS: 
; RO = SS$_Normal or failed status from LIBSPUT_SCREEN. 
5 
54 OUTPUT_DOM: 
048C 8F BB 1D 5 PUSHR #*M<R2,R3,R7,R10> 
53 D4 1098 5 CLRL ; Initialize string Length. 
attest +} 01 DO 1D9D $2 MOVL #1,LINE_NUM ; Output descr tec ion on Line one. 
0000224C EF F DAS 585 PUSHAW COL_NUM ; Setup for LIBSPUT_SCREEN. 
00002248 'EF F DAA a2 PUSHAW LINE_NUM 3 
00 €1 1DB 6 BBC #RPTSV_CLSTR,- ; Branch if we're not displaying the 
00000000 ‘EF DB 6 CURRENT_REPORT,10$ ; _cluster report. 
52 OOOO0018A°EF DE i1DB 6 MOVAL CLUSTER_MSG,R2 ; Get address of message . 
DBF 6 ; “View of Cluster from’’ string. 
07 11 1DBF 6 BRB 208 ; Jump to common code. ve 
52 000091A6°EF D DC1 ° 198: MOVAL LOCAL_MSG,R2 ; Get address of “Local ports on’. 
: A Dc8 208: ADDW (R2) RS : Calculate string length thus far. 
5 Db 10CB 6 PUSHL ; Output the message. 
00000000 ' GF 0 FB 1DCD 6 CALLS # off) OSPUT SCREEN ; 
DD4 : JLBC RO,99 :; Branch on error. 
53 000001BC'EF AO DDA 387 ADDW = MSG1_DSCR.R3 : Aad length of systen id message to 
QOOOOIBC'EF OF bey 4 PUSHAL MSG1_DSCR ; i saga of ‘' system IDs " 
00000000'GF 01 FB 1DE7 587 CALLS #1. G°LIBSPUT_SCREEN : Output the message. 
DEE 75 JLBC RO : Branch on error. 
5A 00000000°EF DE pra , MOVAL LOCSYSID_DSCR,R10 Point to descriptor for the local 
57 10 AA DO 1DFB 5878 MOVL FDSL_OFFSET(R10),R7 : Get the address of the data. 
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077D 30 Hy a a PORE DATA : Nate the gota. 
; Branch on erro 
53 00002153"EF Ad Hs ADDW PORBAT BUF _DSCR,R3 : Add engeh of system id to string 
00002153°EF OF Ive § PUSHAL FORMAT_BUF_DSCR : Push. the address of the formatted 
00000000'GF 01 FB 1615 5 cass fi 4°§5 j lesrur. SCREEN ; Butpus we eyeten ID number. 
: Br err 
53 QOOO0ICF*EF Ad 3 ; 5 ADDW nsée” DSCR,R3 3; Add songee of node message to string 
: _ length. 
QOOOOICF*EF ODF ie , 89 PUSHAL MSG2_DSCR 3 Push the address of '' node: "’ 
00000000'GF 01 FB IE , $1 CALLS 1, 1.60 L 1BSPUT_ SCREEN : Qutput the message. 
53 00000448'EF A0 13 33 ADOW NOSE NAME _DSCR,R3 ; mee ie songen of node name to string 
y en 
Q00000448"EF DF 1E4 95 PUSHAL BODE NAME_DSCR 3 nan aaleess of local nodename. 
00000000'GF 01 FB 1E63 > cs ) gob iesPur. SCREEN : putous the nodenane. 
3; Branch on erro 
000020D1"EF 53 #480 1626 B38 MOVW R099 DOM_SIZE 3 Save size of Shapley descriptor 
3 message. 
048 8F BA 165D 5900 998:  POPR #*M<R2,R3,R7.R10> . 
05 1€61 5901 RSB 
1E0s 4 
1E62 590 
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5 a -SBTTL = Output the time 


; FUNCTIONAL DESCRIPTION: 


This routine is called by GET_HEADER to output the time on the 
top Line of the display. 


If the size of the either the CLUSTER class header, the SCS class 
header in the CLUSTER report, or the header for the LOCAL report 
(depending on what's being displayed) is larger that the Sep ey 
description message + 10, then the time is output along the right 

hand border of the header. If it's smaller, then the time is 

output at the extreme right. This is done to tagreve the appearance 
of the Chee lay and to allow hardcopy output on 80 column paper without 
cutting off the time. 


CALLING SEQUENCE: 
JSB OUTPUT_TIME 


Bete Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Se Ge Se Se Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Fetes 


163 89 
ies 9 
1E 9 
1E6 9 
156 9 
1E 9 
1E6 9 
1E6 9 
1E6 9 
1E6 9 
1E6 9 
1€6 9 
1E6 9 
1E6 9 
1E6 9 
1€6 9 
1E6 9 
1E6 9 
16 9 
163 §9 
156 > CALLED BY: 
166 4 GET_HEADER 
3 33 INPUTS: 
1E6 233 DDM_SIZE contains the length of the display description message. 
1€6 93 SCREEN_WIDTH contains the current width of the screen. 
1&6 93 HEADER_SIZE, CLUB_HEADER_SIZE and SCS_HEADER_SIZE contain the 
He 4 width Of the header for fhe classes being displayed. 
19 4 OUTPUTS: 
ite 32 Time is output to the screen buffer. 
168 Be IMPLICIT OUTPUTS: 
+3 LINE_NUM is set to 1. 
16@ 3 RETURN STATUS: 
168 ace RO = S$S$_Normal or failed status from LIBSPUT_SCREEN. 
1E6 950 
1£62 5951 OUTPUT_TIME: 

00002248'EF a4 BO 1664 388 mOvL nin one 

0000224c "EF $0002004 "EF 1 Al 1E68 934 ADDW3 #1, 00M_SIZE.COL_NUM ; Get_nunber of column after display 
: _descr on me . 
oooz2ds'er 91 80 1E77 5956 MOVY #1, LINE_NUM : ine goes on Line one, 
0 €1 1E7E 595 BBC #rPTSv_CLSTR,- ; Branch if not displaying the cluster 
1F "EF 1E b 998 CURRENT REPORT, 10$ > report. ; 
Go00et¢¢ EF D1 IE 9 CMPL SCS_HEADER SIZE,~ ; Use the larger header to determine 
1¢ tr 1E8C 5960 CLUB_HEADER_ SIZE 3; _where the time should be output. 
9 14 1€91 5961 BGTR ; Branch if SCS is larger. 


SHWCLSTR 
v04 


54 
54 


000021C8°EF 


Show Cluster Utility 


= Output the time 


99 1€93 


5$: 


MOVL 
RB 


§ YS _NEADER_ SIZE AS 


J 12 
15-SEP-19 
b-SEP-19 


Be 33:26:01 


AX/VMS Macro Vv04-00 
CLIUTL.SRCJSHWCLSTR.MAR; 1 


; Get the header size of the CLUB. 
; Branch 


to commo 


$_HEADER_SIZE,R4 


code. 
; Get the header size of the SCs. 


000021CC" 4 99 


8 

MOVL 
BRB 
54 000021(C4'EF 


MOVL 


; Branch to common code. 
; Get the header size for the local 


108: HEADER_SIZE,R4 


96 
1E9A 59 : 
1€9 964 
WA 88 
1EAE $8) 3 report. 
TEAC 369 ; Determine how many spaces to output between the display discription message 
1EAC 59 9 3 and the time based on the size on the header. If it Rts less than 10, then 
1EAe ore 3 output the time at the eutrens right. 
1EAC 5973 ° 
52 00002001'EF we wd Ps a \EAy 974 208: ADDW TIME DSER-DOM_SIZE .Re ; Get size of message + time. 
5 4 ¢ AS 1&8 975 SUBW RZ,R ; Get the number of columns to erase. 
06 B1 EBC are CMPW 3; Less than 6 blanks? 
1 1 1EBF 597 BGEQ 4 ; Branch if not 
OA ae Stat EF 9 EO 1€C1 3f8 BBS os’ ie HARD , OUT -bgv. 508 3 Branch if output is hardcopy. 
53 22°EF AS 1EC9 597 SUBW3 SCREEN WIDTH? R 3; Get the number of columns to erase. 
11 +1€D1 980 RB ; Branch to common code. 
53 0050 8F A3 1€D3 5981 30$: SUBW3 Bg -#00.83 3; Get the number of columns to erase. 
i3 i a4 ; 4 40$: itt Be 3; Skip decrement if fill length is 0. 
B7 1EDD 39 4 DECW pies : One less for aesthetics... 
0000199B°EF 5 O EDF 5985 50$: MOVW ™ 3; Use data descriptor for fill. 
sorte ce 98 C iee6 2388 MOVCS 49. {aoATR SCR sata‘ ama 3; Fill the descriptor with some spaces. 
an Mae a cor poet pdnamngege 
00001 bead DF 1F00 5990 PUSHAL DATA_DSCR ; Output the spaces. 
00000000 ' GF 3 FB 1F06 5991 CALLS 4#3,G*LIBSPUT_SCREEN : 
1Fop 99 JLBC cK 3; Branch on error. 
QOO0020B5°EF ODF 1F1 99 PUSHAL TIME_DSCR 3; Push address to store time. 
00000000 ' GF 2 FB 1F19 5994 CALLS #1,G*LIBSDATE_TIME ; Get the current date and time. 
1750 €9 IF ° 995 BLBC P 3; Branch on error. 
00002085 ‘EF OF IF 447 PUSHAL TIME_DSCR 3 
eeseseedind™ 1 FB 129 599 CALLS #1,G"LIBSPUT_SCREEN 3 
36 E9 1F 9 $43 BLBC 0,998 ; Branch on error. . 
90000000'Gr-” FB IF 99 CALLS 40, pL BSERASE LINE ; Erase the rest of the Line. 
0000224C EF 8 DO 1F3A 6000 99S: MOVL #1 col. se : Restore column number. 
C BA 1F41 6001 POPR WAAR R3,R4,R5> 
05 1F43 one RSB 
1F44 600 
1744 6004 
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1F446 .SBTT a e 
ieee § os SBTTL Box drawing routines 
1F44 3 3 
1022 10 3; FUNCTIONAL DESCRIPTION: 
1F44 6011 ; This routine builds the descriptors for the Lines which make up the 
1F44 ? 12; boxes surrounding the classes and titles in the display header and the 
1F44 13; Line cos leurs t § last Line of data in the report when the report is 
a ? 1 $ run on a non-VT100 compatable terminal. 
1F44 18 3; CALLING SEQUENCE: 
1F44 \3 3 JSB BUILD_VT52_B0x 
1F44 6019 ; 
1F44 6020 ; CALLED BY: 
1F44 6021 ; 
E44 69 ; : GET_HEADER 
1F44 $5 4 ; OUTPUTS: | 
1744 6025 ; Data for Line above and below the titles and the Line following the | 
1F44 60 § 3 last Line of data stored in FIELD_TOP_BOX_BUF_DSCR. 
1002 °° : Data for Line above and below the claSses stored in CLASS_BOX_BUF_DSCR. 
3 | 
1744 6029 ; RETURN STATUS: 
i 
3 one 
1F44 60 § 3 
be $8 i 3 REGISTER USAGE: | 
1F44 6035 ; RS - Pointer into TITLE_BUF 
1F44 6036 ; R6 - Counter for the number of charcters in the buffers. 
1F44 6037 ; R7 - Pointer into CLASS_BUF 
1F44 6038 ; R8 - Pointer into CLASS_BOX_BUF 
1F44 6039 ; R9 - Pointer into FIELD_TOP_BOX_BUF 
ee | 
1F44 6042 ° 
1F44 g0e8 BUILD_VT52_BOx: 
O3E0 8F BB 1744 6044 PUSHR #*M<R5,R6,R7,RB,RI> | 
58 0000076B'EF DE 148 6049 MOVAL CLASS_BOX. BUF ,R8 : Get address of buffer for Line above | 
3 e classes. 
59 O0000973°EF DE IF4F 6047 MOVAL FIELD_TOP_BOX_BUF ,R9 ; Get address of buffer for above and 
1F56 6 £8 3 below field titles and last Line. 
56 99001 188" ¢F 3 IF 38 $88 MOVZ2WL TITLE_DSCR,R6 3; Get rhe number of bytes in TITLE_BUF. 
0000096B ' EF 6 6B i ett MOVW R6,FIELD_TOP_BOX_DSCR ; pve, £0, toe mumner of bytes in | 
Vv -CLASS_BOX_ ; Save as the number of bytes in 
00000763'EF 56 B80 4 4 ? : MOV R6,CLASS_BOX_DSCR Seve 28 he b f b i 
; bs . 
57 800013 ‘EF DE IF 6054 MOVAL CLASS_BUF ,R7 ; Get thé address of the class buffer. 
55 001195°EF pf 1F72 6055 MOVAL TITLE _BUF,R5 ; Get the address of the title buffer. 
7C 8F 7 1 #479 6 2$ 10$ CMPB (R7) +, #*A/ i / 3; Is this character a vertical bar? 
5 12 17D 605 BNEQU 20% : Branch if not. 
88 + ere ? 28 nove Gaa/el (RED? 3 Store a plus sign in the buffer. | 
88 D 90 IF ¢ ? $9 gps: vB #*A/~/ , (RB) ; Store a minus sign in the buffer. 
: +, : : Is this character a vertical bar? 
7c BF OBS o91s«1F 87 0$ CMPB ss (RS) +, #*A/3/ Is this ch tical bar? 
5 12 6062 BNEQU 40% : Branch if not. 


1 
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#*A/+/, (R94 ; Store a plus sign in the buffer. 
#*A/=/,(RO)4 ; Store a minus sign in the buffer. 


3; Loop for all characters. 
#°R<R5,R6,R7,RB,RO> . 


eg ts 


56 
52 
53 
54 


55 


O1FC 8F 
00001188 'EF 


00000768 ' EF 
00000973°EF 
00000878 ' EF 


50? 9990007 


07 
00000083'EF 


BUILD_DECCRT BOX: 
PUSHR 


DWF SF OOOODOOOOOOOOOOOOOOOOOOOOOVOOOOOOOONO OoOooo 
AUS WN OOO NAU EWN OS OD NA NE WIN OS OD NA NEW 0 OOONOAUS Wi 


ee ee me em ee ee ee ee ad ed dd ed dd ed od od od dd od dd dd od 
Se ee ee ee ee ee ee re re ee ee ee eo 


SCVVOMOomoo 
W-—$ PBL 
CONOAOUE WIN OO 
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FUNCTIONAL DESCRIPTION: 
This routine builds the descriptors for the Lines which make up the 
boxes a ph ne td the clegses and titles in the display header and the 
Line followin e last Line of dete in the report when the report is 
run on a VT100 compatable terminal. 
CALLING SEQUENCE: 
JSB BUILD_DECCRT_BOXx 
CALLED BY: 
GET_HEADER 
OUTPUTS: 
Date for Line above classes stored in CLASS _BOX_BUF. 
Data for Line above fields stored in FIELD_TOP_5Ox _BUF. 
Data for Line below fields stored in FIELD_80T_B0X_BUF. 
Data for Line below the last line of data Stored in 
te LINE BUF for SCS display or LAST. CLUB_LINE_BUF for 
CLUB display. 


RETURN STATUS: 


Pete Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Se Sse Se Se Se Sete 


None. 
REGISTER USAGE: 
R2 - Pointer into CLASS_BOX_BUF. 
R3 - Pointer into FIELD" TOP~BOX_ BUF . 
R4 - Pointer into FIELD BOT_BOX_BUF. 
R5 - Pointer into LAST _CINE-BUF “or LAST _CLUB_LINE BOX. 
R6 - Counter for the number of characters in the buffers. 
R7 - Pointer into CLASS_BUF. 
R8 - Pointer into TITLE_BUF. 


#°M<R2,R3,R4,R5,R6,R7, R8> 
MOVZWL TITLE_OSCR,R6 Get the number of bytes in TITLE_BUF. 
JEQL ; Seas if nothing to disp ey 

MOVAL CLASS_BOX_BUF ,R2 ; Ger address of babies fer (ide shove 
MOVAL FIELD_TOP_BOX_BUF ,R3 


class 
$ Get saaraes of buffer for line above 
: e 
MOVAL FIELD_BOT_BOX_BUF ,R4 
BBC #CLS$V_CLUB,- 


CLASS SELECT, 5$ 
MOVAL LAST acti LINE_BUF .RS 


$. 

; Get address of buffer for Line below 
: elds 
: Breach if not displaying the CLUSTER 


ass 
: Get address of buffer for Line below 
the last data Line of CLUB display. 
; Branch to common 


BRB 6$ code 
5$: MOVAL LAST_LINE_BUF,RS5 : Get address of buffer for Line below 
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1FDA 6129 3; _the last data Line of SCS display. 
57 Q000159B'EF DE iEDa 1 ? 6$: MOVAL CLASS_BUF ,R7 3 Oot _ecerens of buffer for class 
58 QOO001193"EF DE el : § MOVAL TITLE_BUF,R8 3 we edéress of buffer for field 
3 mes. 
56 0000118B'EF af iE $1 4 MOVZWL TITLE_DSCR,R6 ; Get the number of bytes in TITLE_BUF. 
E 1FEF 6135 MOVB #GRAPRICS ON, (RQ) ; Store character to turn on graphics in 
Pe. irre } § MOVB #GRAPHICS_ON, (R5)+ : each of the buffers. 
4 —E 90 IFF 1 MOVB #GRAPHICS_ON, (R4)+ 3 
5 —E 90 FFB 61 3 MOVB #GRAPHICS ON, (R5)+ $ 
1 €0 FFB 61 BB #SCRSV_MORE _LFT,- :; Branch if screen has been scrolled 
19 0000047A'EF 1FF 6140 SCROLL“ FLAGS, 10$ : left. 
8 $¢ F 690 00 14 MOVB  #UL_CORNER, (R2)+ : Store upper-left corner. 
B74 BE 90 e007 b148 MOVB = #LEFT_T, (R$) ; Store left ‘"‘T"'. 
4 74 8F 9 0 614 MOVB #LEFT_T,(R4)+ : Store left ‘'T’’. 
85 6D BF 9 OOF 0168 MOVB #LL_ CORNER, (RS) + ; Store lower-left corner. 
57 CO 2013 6145 ADDL #DECM_DSCR_LEN,R7 ; Ignore first character in CLASS_BUF 
58 0 3 818 9196 ADDL #DELM_DOSCR_LEN,R8 ; _and FIELD_BUF. (assumed a ‘'!"'). 
56 (0 C 019 614 SUBL #DELM_DSCR_LEN,R6 ; Decrement number of bytes remaining. 
88 OF «(91 gic 6148 10$:  CMPB $#GRAPRICS_ON, (R8)+ : Ig there a field delimiter in 
2A 12 O1F 6150 BNEQU 30$ $ Branch"if not. 
58 j CO 2021 6151 ADDL #DELM_DSCR_LEN-1,R8 : Update pointer into FIELD_BUF. 
56 (0 C2 2024 $126 SUBL #DELM-DSCR_LEN-1,R6 ; Update counter. | 
84 6€ BF 90 8 c e187 MOVB #CROSS,(R43+ ; Store crossing Lines in 
P+ = ' = ° 
85 76 8F 90 2028 6155 MOVB #BOTTOM_T,(R5)+ 3 Store @ bottom ''T’’ in LAST_LINE_BUF. 
87 OF 91 8 F 9138 ChPB #GRAPHICS_ON, (R7)+ 3 te there on escape sequence in 
OD 12 035 6158 BNEQU§ 20$ 3 Branch if not. 
83 6€ 8F 90 O38 2123 MOVB #CROSS,(R3)+ ; store, creasing Lines in 
82 77 8F 90 2038 6161 MOVB #iUP_T,(R2)+ ; Store &@ top ‘‘T™ in CLASS _BOX_BUF. 
57 02 CO att 6166 ADDL #DELA_DSCR_LEN-1,R7 ; Update pointer in CLASS_BuF. 

1c 8611 $44 0197 BRB 40$ 3; Join common code. 

83 77 8F 90 2041 6165 20$: MOVB #TOP_T,(R3)+ ; Store a top ‘‘T’’ in FIELD_TOP_BOX_BUF. 
82 71 8F 90 043 6166 MOVB #SCAR_5,(R2)+ : Store a horizontal Line = scan 57in 
12 #11 oh 9168 BRB 40$ 3; Join common code. 
82 71 8F 90 Bee 9179 308: MOVB #SCAN_5,(R2)+ : Spore © horizontal Line - scan 5 in 
[2 9 4f e176 MOVB #SCAN_5,(R3)+ : in FIELD-TOP_BOxX_BUF... 
a. wae ¢ 33 617 Move #SCAN_5,(R4)+ 3 in FIELD BOT BGX_ ose 
85 71 8F 90 2057 6174 MOVB #SCAN_5,(R5)+ ; and in LAST_CIWE-BUF. 
7 08 058 6175 INCL R 3; Update pointer ‘nto CLASS _BUF. 
BC 56 SOF 050 176 40$: SOBGTR R6,10$ ; Loop for all byves in CLASS SuF. 

5 D7 6 17 DECL R ; Now that we know we've hit the end 

5 07 6 178 DECL R 3 backup one character in each buffer 

54 07 6 17 DECL R4 : and fix the last character on the 

55 D7? 2066 6180 DECL R5 3 _ line. 

OF6B 8F 860 6 181 MOV #<GRAPHICS_OF F@8>!UR_CORNER,=- : 

82 6C 61 (R2)+ ; Store an upper-right corner followed 
06D 61 3 by character to turn graphics off in 
bep 6184 ; CLASS_BOX_BUF. 

OF75 BF BO 2060 6185 MOVW § #<GRAPHICS_OFF@8>!RIGHT_T,- 
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83 071 18? (R3)+ ; Store a right ‘'T’’ followed by 
of ¢ 3 character to turn ee eonree off 
72 6188 s n FIELD_TOP_BOX_B 
OF7S BF BO gO7e 6189 MOVW —-#<GRAPHICS_OF F@8>! RIGHT. Ts 3 
84 zg 6190 Store a right ‘'T’’ followed by 
077 6191 ; che racter to turn graphics ott in 
077 9138 ;__FIELD_BOT_BOX_BUF. 
OF6A 8F BO 2077 619 MOVW #<GRAPHICS_OF F@8>!LR_ CORNER. = 
85 07B 6194 (R5)+ Store a lower-right corner followed 
O7C 6195 b shorester, te turn graphics off in 
O7¢ 6196 : CAST_LINE.B 
52 00000767"EF C3 ore 6198 SUBIL3 CLASS_BOX_DSCR+4,R2,- : Save the aber uff characters stored 
+t} 6199 CLASS_BOX_DSCR : in .“-¥ 80x 
pooperer® , ae 6200 SUBL3 baete TOP BOX_DSCR+4,- : Save the number “al cherecters stored 
00000968 EF O8E 6201 R3,FIELD_TOP geox psch 3 in FIELD_TOP_BOXx 
a a C3 2094 6 O SUBL3 FIELD BOT_BO peer R+4 ; Save the fi umber of characters stored 
00000873' 4 O9A 620 R4,FIELD Boy raps “DScR” ; in FIELD "BOT BOX 
00 €1 20A0 6204 BBC #ccs$v_cC ; Branch if not “Fieplaying the CLUSTER 
OE 00000001 'EF OA2 6205 CLASS, SELECT, 50S ; class, 
OOOOOF87"EF C3 20A8 6206 SUBL3. LAST CLUB _LINE_DSCR+4,- : Save the number of characters stored 
OOOOOFB3'EF 55 OAE 6207 R5,LAST_CCUB_LINE_DSCR ; in LAST_CLUB_LINE_BUF. 
36 «611 +4220B4 6208 BRS 70$ : Branch to common code. 
55 OO000D7F*EF C3 2086 6209 50S: SUBL3 LAST =L INE DSCR+é, R5,- ; Save the number of characters stored 
0C2 6210 LAST. LINE_DSCR : in LAST_LINE_BUF. 
28 Si Oce ° 1} BRB 0$ 3 Branch to common code. 
QO0O00763'EF 04 2004 6 13 60$ CLRL CLASS_BOX_DSCR ; Nothing to display, so clear length in 
9000096B"EF D4 20CA 6214 CLRL FIELD_TOP_BOX_DSCR : all descriptors. 
00000873"EF D4 0D0 6215 CLRL FIELDS ao apo “DSCR : 
00 €1 2006 6 1 BBC #CLS$ ; Branch if not displaying the CLUSTER 
08 00000001 EF 0D8 621 CLASS setect, 65$ ; class. 
OOO000F 83°EF D4 20DE 6218 CLRL AST_CLUB_ Chae _DSCR ; 
06 11 2064 6 YP BRB : Branch to common code. 
QO0000D7B'EF 04 Spee 6220 65$: CLRL LAST OS _DSCR 5 
OFC 8F BA OEC 6221 708: POPR apeRD. R *R4,R5,R6,R7,RB> 
05 20FG oss¢ RSB 
20F1 622 
20F1 6224 
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SBTTL - DRAW_LAST_LINE 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine is used to output the Line immediately following the 
data, i.e., the bottom Line of the display box. 


CALLING SEQUENCE: 
JSB  —- DRAW_LAST_LINE 


OOOOOCOOCOO I 


CALLED BY: 
DISPLAY_CLUB 
DISPLAY COMMON 
GET_HELP 
INPUTS: 
LAST_LINE_DSCR or LAST_CLUB_LINE_DSCR t..led in for DECerts. 
FIEL 5 TOP-BOX_DSCR filled in if not DECert. 


OUTPUTS: 

One Line output to SCREEN_BUFFER. 
RETURN STATUS: | 

RO = Status returned form DRAW_LINE routine. | 
REGISTER USAGE: 

R11 points to descriptor for the Line to be output. 
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DRAW_LAST LINE: 
POSHR  #*M<R 


0800 8F 68 R11> 
38 00002247°EF 01 €1 BBC #OVTSV_DCRT,OUT_DEV,30$ ; Branch if output device isn't a 
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UNO NB FLO NUTS OC Ut YH 
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7 ; DECcrt termina 
E1 8 BBC #RPTSV_CLSTR,- : — if not displaying the Cluster 
9 CURRENT REPORT, 20$ : 
E1 0 BBC #CLS$v_CL 3 Branch. if not displaying the CLUSTER 
71 CLASS. SELECT, 10$ ; 
DE ts MOVAL LAST_CLUB_LINE_DSCR.A11 ; Point. ie de descriptor for last line 
: 6 
DO re MOVL CLUB_HEADER_SIZE,- ; Get size ot sat header. 
75 HEADER_SIZE 3 
11 6 BRB ; Branch to common code. 
dO 4 10$: MOVL oe tare ere SIZE,- ; Get size of SCS header. 
DE ig 208: MOVAL LAST_LINE_DSCR,R11 ; Point to descriptor for Last Line 
; oO splay. 
0 f SCS displa 
11 1 BRB 408 ; Jump to common code. 
DE 82 30S: MOVAL FIELD_TOP_BOX_DSCR,R11 ; Point to descriptor for Line below 


Ce —_————————— 


sch 


D 13 


Show Cluster Utility 
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g5¢7 30 213C 6284 40$: BSBW DRAW_LINE 
0800 8F BA 213F 6285 POPR #°Mc<Rii> 
05 2143 6 $ RSB 
144 6 
144 6288 
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; _the field names. 
; Output the Last Line. 
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-SBTTL - eld title generation. 


c 
w 


) 


Oo 


FUNCTIONAL DESCRIPTION: 
This routine scans the field descriptor bit map to determine which 
fields will be displayed. If a field is to be displayed, then its 
title is added to the title buffer along with the appropriate 
delimiters and spaces so that the title is centered in the field. 
The scan continues until the entire bit map is checked, or the title 
buffer is full. 

CALLING SEQUENCE: 
JSB GET_TITLES 

CALLED BY: 
GET_HEADER 

OUTPUTS: 


Field a are output to TITLE_BUF. Descriptor for the title is 
built at TITLE_DSCR. 


RETURN STATUS: 
RO = SS$_NORNAL 
REGISTER USAGE: 
R2 - Used to determine when the located title is in a different 
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1 class than the previously located title. 
1 R3 - Points to the next free be. in the title buffer. 
1 R6 - Number of character positions left on the Line before the 
1 screen Line overflows. , 
1 R7 - Used to hold the size of the current display field. 
1 R9 - Used to calculate the number of spaces needed to center the 
1 title in the field. - , 
1 R10 - Points to the start of the current field descriptor entry. 
; (From FIND_ENTRY routine) 
' --= 
1 GET_TITLES: 
O6CC 8F BB 21 PUSHR #*M<R2,R3,R6,R7,R9,R10> : 
00000625"EF 94 21 NUM_FIELDS ; Initialize number of fields found. 
00 =«€1 21 BB #RPT$V_CLSTR : Branch if we're not displaying the 
0D 00000000'EF 1 CURRENT_REPORT, 3$ ; cluster report. 
00000464°EF DO 21 MOVL CLSTR_H_SCROLL,- 3; Get a copy of the scroll value for the 
0000046C ‘EF 1 H_SCROLC_LINE : cluster report. 
08 11 21 BRB 4$ ; Branch to common code. 
68°EF 1 3$: MOVL LOCAL_H_SCROLL,- ; Get a copy of the scroll value for the 
000046C °EF 1 H_SCROLC_LIN ; _local report. ; 
53 00021D0° EF 1 4$: MOVAL TITLE_LER_ARRAY,R3 ; Set length of titles to 0. 
4 ge 1 PUSHR cawene R4,R5> 3 
00 63 00 2 21 movcS #0,(R35,#0,- ; 
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63 ¢¢ 178 47 serena cL ASSES. (RS) ; 
4 BA 2170 rh: POPR #*M<R2,R4,R5> : 
0001188 EF D4 O17F 634 CLRL «Cr TITLE OSCR : Set Length of buffer to 0. 
1g "EF D4 2185 6350 R HEADER SIZE 3; Set width of header to 0. 
53 011 "§f 43 1 2 1 MOVAL TITLE _6UF,R3 3; Get pointer to title buffer. 
21 5S 3 1 ¢ TITLE START 3 Save address of start of titles. 
6  00002222'EF C 199 6 MOVZWL SCRE N_WIDTH,R6 ; Get screen width. 
1 €0 21A0 6354 #SCRSV_MORE _LFT,=- ; Branch if screen has been scrolled 
09 000006745 1A2 63555 SCROLL_FLAGS,5$ : left. 
4 30 21A8 6 2$ BSBW DELM : Start Line with field delimiter. 
pope cs "Ee D6 21AB 6 INCL HEADER_SIZE 3; Header size = 1. 
000021BC EF 6 00 18) ° 8 5$: MOVL R6,TITCE_COUNT 3 sore the number of bytes remaining on 
3 e line. 
00002270°EF D4 168 6360 CLRL START_BIT ; Start scanning the field descriptor | 
1BE 6361 3; bitmap at bit zero. | 
00. =«€1 18F 6 ¢ BBC #RPTSV_CLSTR,- ; Branch if we're not displaying the 
09 00000000’ EF 100 636 CURRENT REPORT, 7$ : cluster report. | 
0000226C'EF 02 DO 2166 6364 MOVL § #CLUSTER_MAP_LEN,MAP_LEN;: Save Length of cluster bitmap. | 
0 11 2100 6365 BeB 3; Jump to common code. 
O0000226C*EF 00 88 1CF 6366 7$: MOVL #LOCAL_MAP_LEN,MAP_LEN ; Save length of local bitmap. 
018A 0 2106 6367 10$: BSBW FIND_ERTRY : Locate a field to be displayed. 
6C 50 E—9 2109 6368 BLBC " : Branch if field wasn't found. 
00000425'EF 96 21DC oa92 INCB NUM_FIELDS : Increment number of fields found. 
OC AA CB site 6370 208: BICL3 FOSC_CLASS(R10),- ; Is this field in a different class? 
52 000021F4'EF 1E5 6371 CURRENT _CLASS Re : 
0 13 21€8 $376 BEQL 0$ ; Branch if not. ‘ 
6 10 21ED 637 BSB SAVE _TITLE_LEN ; Save length of the class title. 
OC AA D3 21EF 6374 308: BITL FD$L-CLASSTR10),- : Is this class enabled? 
00000001 ‘EF 1F2 6375 CLASS_SELECT 3 
DD 13 21F7 6376 BEQLU 1 : Branch if not. 
0247 30 21F9 6377 BSBW ADD_ONE_SPACE 3: Preceed title with atleast one space. 
48 1F 21FC 6378 BLSSU 708 ; Branch if it won't fit. 
18 AA 83 21FE 6379 SUBB FOSB_TITLE_SIZE(R10),- ; Get the difference between the number 
59 6A 01 6380 FOSB_FIELD_SIZE(R10),R9 ; of characters in the title and the 
83 6381 3; _size of the field. 
02. «+18 0 o356 BGEQ 40$ ; Branch if field size is larger than 
05 638 : the title. 
59 94 05 6384 CLRB Ro : Number of spaces needed before and 
07 6385 3 after the title equals zero. | 
59 59 QA 07 6 $6 40$: MOVZBL R9,RI ; Make R9 a Longword. 
59 59 FF BF 9C OA 6 ROTL #-1,R9,R9 ; Calculate the number of spaces to 
OF 6 Hy : center the title. 
0237 30 OF 6389 BSBW ADD_SPACES 3; Add the spaces to the buffer. 
_hUWw \? $ + BLSSU 708 :; Branch if the spaces won't fit on the 
3 screen. 
03 59 ~=O*F 1 14 6 38 BBC #31,R9,50$ : Branch if even number of spaces. 
0288 0 2218 639 BSBW ADD_ONE_SPACE : Otherwise, add one more. | 
1F 1B 6394 50$: BLSSU - 3 Branch if the won't fit. 
57 18 AA 9A 1p ? 32 MOVZBL FOSB_TITLE_SIZE(R10),R7 ; Assune the full title will fit in the 
: eld. 
6A 57 91 1 6 3 CMPB R7,FOSB_FIELD_SIZE(R10) ; Will it really fit? 
03 15 4 6398 BLEQ ; Branch if it wi 
57 A QA $ 6399 MOVZBL FD$B_FIELD SIZE (AIG) A? 3; Get the size of the field. 
4 8B 6400 608: PUSHR <R2,R4,R5> 
63 19 AA ye a 6401 MOVC3 RT, FD$T TITLE (R10) (R3) 3; Copy title to title buffer. 
4 A O68 POPR #°M<R2,R4,R5> 
56 7 2 64 SUBB R7,R6 ; Calculate room left on screen. 
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fF Ff ; 6404 BLSSU 70$ 3; Branch if it didn't fit. 
020F 30 6405 BSBW ADD_SPACES 3; Add spaces following the title. 
a " oe $ BLSSU 70$ : on, f the spaces won't fit on the 
oes af «S58 Bes Bistu pet eee i follow Fitie with, ong space. 
01DB 30 2241 6410 SBW ELM : Add ending delimiter to Line. 
90 ~#'€ te ake BGEQU 10% : ge Mg there's more room on the 
‘ e418 70$: CLRL R6 ; Number of columns remaining equals 
48 6415 80S: BSB SAVE_TITLE_LEN : Save the Length of the titles. 
4A G618 MOVL #SS$"NORMAL ,RO : Indicate success. 
4D 641 POPR #°M<R2,R3,R6,R7,R9,R10> 
51 9618 RSB ; Return. 
2§ 641 
52 6420 
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64 § p++ 
6425 ; 
o ¢ ; FUNCTIONAL DESCRIPTION: 

4 § : This routine is used to save the total number of columns used by all the 
6427 ; titles in a particular class that are to be displayed. This number is 
64 3 3 used by the GET_CLASSES routine to center the classes. This routine 
6429 ; also saves the fotal number of columns that will be used by the report. 
6450 ; Note that this routine is called whenever a title to be displayed has 
6431 ; been found that is in a different class than the previously found title 
o § ; or when the Last title to be displayed has been found. 

64 4 > CALLING SEQUENCE: 
64 ; JSB SAVE_TITLE_LEN 
6438 : CALLED BY: 
6439 ; 
6440 ; GET_TITLES 
6441 ; 
me 3 INPUTS: 
eee ; Ee eesees to the address following the Last byte stored in the title 
3 uffer. 
6446 ; R6 contains the number of characters that can be added to the title 
6447 ; buffer before the number of characters in the buffer exceeds the width 
6448 ; of the screen. 
6449 ; 
$429 3 IMPLICIT INPUTS: 
$626 : TITLE_COUNT = Number of characters that can be added to the title 
6455 ; as saved from a previous call to this rouine. TITLE_COUNT 
6454 ; is initially set to the screen width by GET_TITLES. 
6455 ; TITLE_START = Address in the title buffer where the last group of 
6456 ; titles begins as saved from a previous call to this routine. 
pants ; TITLE_START initially points to the start of the title buffer. 
6459 : OUTPUTS: 
6461 : HEADER_SIZE updated to reflect the width of the report in characters. 
rere : IMPLICIT OUTPUTS: 
6464 ; 
6465 ; TITLE_COUNT updated. 
e098 3 TITLE_START updated. 
6468 $ RETURN STATUS: 
6469 ; 
6470 ; None. 
6471 ;: 
otf 3 REGISTER USAGE: 
6474 : R2 - Used to index into an array containing the Lengths of the 
6475 ; titles in each of the classes. 
vee : R4 - Used to point to the base address of the array. : 
att : R3,R5 - Used to calculate the number of bytes stored in the title 
3 uffer. 
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79 ; 
ce 
482 SAVE_TITLE_LEN: 
wi “Ac 4,R5> 
9 30 ee ; et +t #0 ANUAL CLASSES = ; Convert class bit to index value. 
¢ an0gT 4 EF : i l th array. 
s 2009 a y p De $ pitty TITLE LEN ARRAY ARG : rtd pote 3 + I Ta’ charesterss 
6442  Q000021BC ‘EF C 64 64 SUBL R6 i - OU é 3 g P ae Sa coerce 
000021C4'EF oa23 C 23 ee 3 ADDL (R4)CR2) HEADE SIZE : nee Se socet size of heade 

: h of titles in bytes. 

55 53  QOQOO21CO"EF C¢ 7 4 SUBL3. TITLE_START,R3,R5 : Get actual lengt , Sitios in dries. 

cootliolatt A a ED) eg MM sR eM ar EE, 

: R6,TITLE_ COUNT 3; Save number of bytes rem . 
iteataart § oO be 6194 MOVE R3,TITLE_START : wove Stareing address for meat set of | 
M FOSL_CLASS(R10),- : Set new class to current class. 
oooozirs*te . 33 ret — CURRENT _CLASS 5 
5 BA 9D 6498 10$ POPR #*M<R2,R4,R5> 
05 SF 6499 RSB 
AO 6500 
2A0 6501 


Clases are stored in CLASS_BUF. 
RETURN STATUS: 
RO = SS$_Normal. 


REGISTER USAGE: 
a? - Points to next free character position in CLASS_BUF. 
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-SBTTL - Class title generation. 

A 

. FUNCTIONAL DESCRIPTION: 

A This routine stores the class titles in CLASS_BUF for the GET_HEADER 

A routine. The class titles are stored with the appropriate field 

A delimiters and spacing such that the class titles will be displayed 

- ’ centered above the field titles. 

A 1 

: ! CALLING SEQUENCE: 

. : JSB GET_CLASSES 

~ ; CALLED BY: 

~ GET_HEADER 

OUTPUTS: 
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2A0 3 - Used to calculate the number of leading spaces fo precede the 
22A class title. 
§ A R5 - Used as a pointer into the class name strings. 
7 R6 - epee to ce culate the number of trailing spaces to follow the 
class . 
AQ R7 - Points to descriptor containing the class name. 
AQ 4 RB - Used to calculate the number of spaces needed to center the 
A 4 class name. 
A 4 RO - Used to calculate the number of spaces needed to center the 
- r class name. 
r R11- Used to index into the title Length array. 
A 4 =e 
A 4 
A 49 GET_CLASSES: 
OBFC 8F BB A 5 PUSHR #*M<R2,R3,R4,R5,R6,R7,R8,R9,RII> 
D4 AS : CLRL 1 3; Set counter to 0 
53 0000159B°EF E A6 MOVAL CLASS_BUF,R3 3; Get address of class buffer. 
36 0002222°EF 3C 22aD 655 MOVZWL SCREEN WIOTH,R6 : Get screen widt 
5 000 1p0°EF DE 2284 655 MOVAL TITLE_CEN_ARRAY,R7 : Get address of title Length array. 
55 0000238 'EF E 5 MOVAL CLASS"NAMES,RS 3; Get address of class descriptors. 
4 A C 2 MOVZBL (R5)+,R4 ; Get number of bytes in first string. 
:¢. 27 C BS #SCRSV_MORE _LFT,- ; Branch if screen has been scrolled 
03 0000047A'EF C 55 SCROLL-FLAGS,2$ : left. , ; 
O14F 30 CD 655 BSBW DELM ; Add starting delimiter to Line. 
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4-SEP-1984 
aa SELECT,R2 
RIt aT RS AO’ 
=1.(R5) .Ré 
4,R 
(R5)+,R4 
e ‘peepee 
(R7)CR11),R8 
R 


4 
R4,R8B,RO 


63 

RO 

RB,R4 
#-1,R9,R9 
ADD_SPACES 
208 
#31,R9,10$ 
ADD_ONE_SPACE 
# NER? R4,R5> 
R4, (R55, (R3) 
#°R<R2,R4 RSD 
ADD_SPACES 
208 

DEL 

RG. SCREEN_WIDTH 


#CLASS_BUF ,R3,CLASS_DSCR; 
#*M<R27R5,R4,R5,R6,R7,RB,RI 


Bee Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Se Se Se Fe Fe Ge Ge Fe Fe Se Se Be Ge Se 


+08 AX/VMS Macro Vv04-00 Page 137 


CLIUTL.SRCIJSHWCLSTR.MAR; 1 


Branch if it won't fit on the Line. 
Get mask of classes to be displayed. 
Check if class is enabled. 

Branch if so. 

get number of bytes 

Point to next class string. 

Get number of bytes in string. 
Branch if there's more classes to 


check. 
Get length of the titles for this 


class. 
Subtract one for the delimeter. 
Branch if no titles being displayed. 
paces 


; Calculate the number o 


to appear before and after the 
class name. 

Branch if more characters in the 
titles than in the class name. 

Otherwise, no leading or trailing 
spaces around the class name. 

Make Length of class same as titles. 
Calculate the number of leadin 
spaces to appear before the class 
type in order to center it. 

Add Leading spaces. 

Branch if the spaces won't fit on the 
screen. 

Branch if even number of spaces. 

Add one more space. 

Branch if it won't fit. 


Add class type. 


Add trotting spaces. k 
Branch if the spaces won't fit on the 


screen. 
Add ending delimiter. 
Branch if it won't fit. 
Will classes fit on the screen? 
Branch if Shey will. 
geve Lengen of buffer. 
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-SBTTL REFRESH routine. 


L 13 


FUNCTIONAL DESCRIPTION: 


Page 13 


(4 


This routine causes the display header, which is not normally redraw on 
each update, to be redraw. 


CALLS 


CALLED BY: 


SHOW 
SH 


OUTPUTS: 


CALLING SEQUENCE: 


#0,REFRESH 


neh D_LOOP 
READ_WO + 


“CLOSTE 
LOCAL 
ADD_ FIELD 
REM- FIELD 
INCCUDE_CLASS 
EXCLUDE-CLASS 
SET_WIDTH 
SET-SCREEN 


RIP (Refresh in Progress) flag set at MISC_FLAGS. 


REFRESH, “M<R2> 
JBS 


CLRB 
BISL 
RET 


“AMESV IN_OPEN, = 
C AFLAGS.9 9§ 


SW vite 
#MFSM_RIP,MISC_FLAGS 


Skip refresh if executing from a 
command procedure. 

Initialize switch count. 
Indicate refresh in progress. 


8 


Layee ace Sat pean 


IMPLICIT INPUTS: 


SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro v04-00 Page 139 
y04sb00 FIND_ENTRY routine. 4-SEP-1984 33:32:08 CLIUTL.SRCISHWCLSTR.MAR; 1 ° (49) 

gsc? -SBTTL FIND_ENTRY routine. 

? oe 

e669 FUNCTIONAL DESCRIPTION: 

geet This routine is used to scan one of the class bitmaps for a set bit, 

0026 indicating that a field is to be displayed. It returns the address 

$027 of the field descriptor to the calling routine. 

6655 This routine also performs the horizontal scrolling by ignoring the 

9638 first entries found as determined by the value stored in H_SCROLL_LINE. 

6658 CALLING SEQUENCE: 

665 

6660 JSB FIND_ENTRY 

6661 

O26 CALLED BY: 

666 

6664 GET_TITLES 

6665 GET_DATA 

ADD_FIELD 


ADRS_TABLE - Contains the address of the table of entry addresses. 
BITMAP ADRS - Contains the address of bitmap to be searched. 
MAP_LERN - Contains the length of the bitmap. ; 
START_BIT - centetns the number of the bit in the bitmap to start 
e search. 
(Should be zero on the first call to this routine.) 
H_SCROLL_LINE Set to the number of entries to skip before success is 


NAAN AAA AIA AINA AIA AIAN WIAA AI NINA AIAN AAAI AANA 


DDE ODS OS OS DS Ds OS Os OS OS DS OS OS OS OD DS OS OS OS DS DS ODDO AAA AAAAOAAAO IC 


R10 yeee So ceteraine the number of bits left to scan in the 
ongword. E 
eet tues the address of the field descriptor once a entry has 


been found. 


o 
oa 
~ 
Se Se Ge Se Se Se Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Sse Ge Ge Ge Ge Ge Ge Ge Se Ge Se 
t 
Q 


6677 returned. 
6678 
6679 ; OUTPUTS: 
6680 
pee? R10 = Address of field descriptor. 
ees IMPLICIT OUTPUTS: 
983? START BIT updated to point to next bit to be checked. : 
9656 MAP_LEN updated to indicate the remaining length of the bitmap. 
e688 RETURN STATUS: 
6690 RO = SS$_Normal if an entry is found. 
; 909 REGISTER USAGE: 
; 6694 5, - Pointer into the address table for the report. 
6695 R? = Pointer into the bitmap for the report. 
989 R9 = Used to determine the starting bit in the longword to scan. 
69 
$538 
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759 
°o 


3 FIND_ENTRY: 
PUSHR 


Clus U 
ENTR u 
63 67 
03C¢0 ef BB 3 704 #*°M<R6,R7,RB,RI> 
0 04 705 CLAL R ; Assume failure. 
33 8008 64°EF 0D 4 7 $ MOVL ADRS_ TABLE ,R6 3; Get address of “Agdress table. 
000 SEF D 9 67 MOVL BITMAP_ADRS_R7 ; Get address of bitm 
0000 ‘tf D 77 67 8 5$: MOVL START_BIT,R9 : Get the starting bie "position. 
A 4 7E 67 CLRL R1 3; Dividend must be a qua 
SA 51 59 0 6710 EDIV #32,R 8948 1,81 0 ; Calculate the number of “Bits left to 
SA 0 A ¢C 148 SUBL3 -R10,#32, RiO 3: scan in the longword. 
59 67 A 9 EA 9 Ns FFS R9,R1 10,(R7),R9 : Scan for a set bit. 
l¢ 12 671 BNEQ 20$ ; Branch if found in this Longword. 
0000226C ‘EF 3 » > orte cer at MAP_LEN : any oe more > left to scan? 
: Branch 
00002270'EF 35 dO 99 o7i8 MOVL R9,START_BIT ; Save stereine’ bit for next longword. 
ae “ 671 BRB : Scan next Longword. 
SA 6649 00 A orig 20$: MOVL (R6)CR9I],R10 : Get the address from the table. 
00002270°EF 59 O11 (C1 4 24 ADDL3 #1,R9,START BIT 3 Seve, stars in PAtRY for next 
$ ce ° 
oc AA D3 23AE 6721 BITL FOSL CLASS (O10), ~ 3 Is this entry in a "iuhached class? 
— a 13 386 7 5 BEQLU § LASS. S peta : B hifn 
: Branc 
0000046C ‘EF D5 4 of ¢ TSTL H_SCROLL_LINE é yf ay field scrolled off the left of 
3 e screen? 
08 19 $05 67 § BLSS 30$ : Branch if not. 
QOOOOG6C*EF D7 23C 44 DECL H_SCROLL_LINE F Keynt de down the number of fields to be 
AF 18 : 67 § BGEQ 5$ 3 lentre t this field. 
50 01 400 ; 6730 30$: MOVL a388 NORMAL ,RO : Indicate success. 
03cO 8F BA 6731 99$:  POPR AM<R6,R7,RB,R9> : 
05 23 ora : 
3 673 
3 6734 
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67 $ «SBTTL Miscellaneous routines. 
o58e i 
ib ; FUNCTIONAL DESCRIPTION: 
974 ; Routine to clear the terminal's screen. 
o5e8 : CALLING SEQUENCE: 
6744 ; 
6745 : JSB CLEAR_SCREEN 
oreg : 
6747 ; CALLED BY: 
6748 ; 
6749 ; MAIN_ERR 
6750 ; SHOW. CLUSTER 
or3) 3 SHOW! LOCAL 
; 6738 : IMPLICIT OUTPUTS: 
§ $732 ; COL_NUM (column number) and LINE_NUM (Line number) are set to 1 
: 6737 + RETURN STATUS: 
§ 1544 : RO = SS$_NORMAL or failing status from SRCPKG routine. 
; 6761 : 
2 676 
; 6764 CLEAR_SCREEN: 
50 01 400 6765 MOVL #SS$_NORMAL ,RO 3; Assume success. 
0000224c'EF 01 DO 6766 MOVL #1,COL_N a 3; Start at column 1 
00002248'EF 01 00 6767 MOVL #1,LINE_N 3; and Line 
13 00002247'EF 02 AY 6768 BBS spvtsv AARD, OUT_DEV,99$ ; Skip if cutput is hardcopy device. 
0000224C EF F 6769 PUSHAW Coe at 3; Clear the screen, 
00002248'EF  3F 6770 PUSHAW INE N : 
00000000'GF 02 FB 2 6771 CALLS §2"G*L IBSERASE _PAGE : 
05 2 orre 99$: RSB : Return with status. 
2 677 
2 6774 
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FUNCTIONAL DESCRIPTION: 
Routines to erase one or two Lines on the terminal. 
CALLING SEQUENCE: 


J$B ERASE_LINE 
JSB ERASE_ 5u0 ULINES 
CALLED BY: 
ERASE PAGE 
DRAW_CINE 


READ _WO_PROMPT 
DISPCAY_PTP 


IMPLICIT OUTPUTS: 
LINE_NUM (Line number) is incremented. 
RETURN STATUS: 
RO = SS$_NORMAL or failing status from SRCPKG routine. 


-ENABL LSB 
ERASE_TWO_ LINES: 
BSB 


Pee tm) — fens Bens end Bens Bens ns on Dons Ons ne Don Ben ne ns Ons Dons Bn na ns ns ns Bn on Dns Pn nn ns ns ns 
worm "oOo Vc Vv VT 9ToVTIVIVTTCVUCTVT9TCTCCT0C00C000"0"0"0"90"7"°9"0"0007 
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FP oP oP oP oP ae oe at ek ae th a heen h ahaha ad ab ahah ad ab ah ahah ah ab ap abil 
DDDPEDP_EDPPAEDAPR PAPA A AAA A AAA AAA A AAA AA AAA AAA AAA AAAAAAA OS 


0000900 Go 00 Co Co Go Gd Cd Co G9 C9 C9 G9 CO CO C9 0008 SINS SINS 
Ne HOD ODOOOO0O0 OOOO 000000090009 0909 09 C9 090909 SII I 


SOONAWUE WN O GONAUE WN 9 OONAMUE WIN O OONOAUE WN OOONIO 


03 «610 ERASE_LINE : Erase a line. 
1¢ 50 =—«E9 BLBC RO,998 ; Branch on error. 
ERASE_LINE: 

50 01 00 MOVL #SS$_NORMAL ,RO 3; Assume success. 
0000224C ‘EF z PUSHAW COL_AluM ; Erase the Line 
00002248'EF £ 0B PUSHAW {ne Mun 3 

00000000'GF 02 FB 11 CALLS #2,G*LIBSERASE_LINE $ 
00002248°EF 06 18 INCL LINE _NUM ; Bump Line number. 
05 H 5 99$: RSB ; Return with status. 
1F -DSABL LSB 
iF 
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FUNCTIONAL DESCRIPTION: 


The following routine adds a control strin 
indicate the start, and end of fields in 


CALLING SEQUENCE: 


to a Line of data to 
he data Line. 


JSB DELM 
CALLED BY: 
GET_TITLES 
GET_CLASSES 
INPUTS: 
R3 - Address of the next free character position in the buffer 
R6 - Number of bytes that can be added to the buffer before its 
length exceeds that of the screen Line. 
OUTPUTS: 
R3 - Next free position in the buffer. 
R6 - Updated number of bytes that can be added to the buffer before 


its length exceeds that of the screen Line. 


RETURN STATUS: 


RO = $S$_NORMAL. 


#°M<R2,R4,R5> 
#DVT$V_DCRT,OUT_DEV, 10S 
#°A/5/7(R3)4 


DELM_DSCR,DELM_DSCR+B, 
(R5) 


Branch if terminal is a DECert. 
Store a VT52 vertical bar ‘':"’. 
Jump to common code. 

Store a DECcrt vertical bar. 


Subtract the length of the string 
in characters as it will appear on 
the screen. 


#AM<R2,R4,R5> 
#SS$_NORMAL ,RO 


nH 
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443 6873 ;++ 

44 ° 74; 

7 ? ie 3; FUNCTIONAL DESCRIPTION: 

443 6 § 5 This_routine adds a single space to a buffer at the location pointed to 
443 6 4 3 by R3. 

443 6879 ; 

re ? ? 3; CALLING SEQUENCE: 

443 6 : ; JSB ADD_ONE_SPACE 

443 6 3 

443 6884 ; CALLED BY: 

443 6885 ; 

443 6 § 3 GET_TITLES 

443 6887 ; GET_CLASSES 

443 6888 ; 

443 6889 ; INPUTS: 

443 6890 ; , 

443 6891 ; R3 - Points to the next free position in the buffer. 

44 O56 3 R6 - Contains the number of characters that can be output to the 
2443 6893 ; buffer before the number of characters in the buffer exceeds 
2443 6894 ; the width of the screen. 

443 6895 ; 

44 6896 ; OUTPUTS: 

443 6897 ; 

re 028 3 Single space stored in buffer pointed to by R3. 

443 6900 ; IMPLICIT OUTPUTS: 

443 6901 ; 

2443 6902 ; R3 and R6 updated 

2443 6903 ; 
2443 6904 ; RETURN STATUS: 

2443 6905 ; 

2443 6906 ; None. 

2443 6907 ; 

2443 6908 ;-- 

2443 6909 

443 6910 ADD_ONE_SPACE: 

8§ 20 90 24435 6911 MOVB #*A/ /,(R3)+ ; Add one space to the buffer. 
56 D0? 2446 oats DECL R6 3; Decrease room left on display Line. 
05 2448 691 RSB 
2449 6914 


eee ee een Ee ee 
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449 6916 ;++ 
449 6917; 
ree 2318 3 FUNCTIONAL DESCRIPTION: 
449 6920 ; This routine adds a number of spaces to a buffer by recusiveiy calling 
449 6921; ADD_ONE_SPACE. 
449 69 ¢ 3 
449 6925 ; CALLING SEQUENCE: 
449 6924; 
449 6925 ; JSB ADD_SPACES 
449 69 § : 
449 6927 ; CALLED BY: 
449 6928; 
449 6929 ; GET_TITLES 
449 69350; GET_CLASSES 
449 6931; 
449 69 § 3; INPUTS: 
449 69335; 
449 6934; R9 - Number of spaces to output. 
2449 6935 ; R3 - Points to the next free position in the buffer. 
449 6936; R6 - Contains the number of characters that can be output to the 
449 6937; buffer before the number of characters in the buffer exceeds 
449 6938 ; the width of the screen. 
449 6939; 
449 6940 ; OUTPUTS: 
449 6941 ; 
449 6942 ; Spaces stored in buffer pointed to by R3. 
449 6943 ; 
449 6944 ; IMPLICIT OUTPUTS: 
449 6945 ; 
449 6946 ; R3 and R6 updated 
449 6947 ; 
449 6948 ; RETURN STATUS: 
449 6949 ; 
449 6950 ; None. 
449 6951; 
449 $336 3e= 
449 695 
449 6954 ADD_SPACES: 
0200 8F ae 449 6955 PUSHR #*M<R9> 
59 9 44D 6956 STB 3 Any speces to be output? 
05 is 44F 6957 BNEQ 10$ 3; Branch if so. 
59 O01 OD 451 6958 MOVL #1,R9 3; Otherwise clear zero flag. 

OB 11 2454 6959 BRB 9 3; And return. 

EB 10 2456 6960 10S: BSB ADD_ONE_SPACE ; Output one space. 

07 ~=O1F rh e001 BLSSU_-99$ : Return if there's no more room on the 

3 ne. 

45A 696 DECB RY : Count down the number of spaces to 
45C 6964 3; output. 
45C 6965 BNEQ 10$ 3 Loop till all spaces are output. 
45E 696 MOVL #1,R9 ; Clear zero flag. 
461 6967 99%: POPR #*M<R9> 
465 696 RSB 
466 
466 
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466 72 34+ 
466 $376 5 
rhe bare 3 FUNCTIONAL DESCRIPTION: 
466 9278 : This routine outputs a line to the screen buffer. If the line causes 
466 6977 ; the screen buffer to overflow then the screen buffer is output to the 
rh 2378 3 screen and the Line output retried. 
466 6980 ; This routine also handles the case where the output Line is longer than 
466 6981 ; the width of the screen by outputing a trunction character at the end 
466 69 ¢ 3 of the Line. The truncation character is either a block or a diamond 
ee 83 Z 3 shape depending on terminal type. 
466 $282 3 CALLING SEQUENCE: 
466 69 § F 
466 6987 ; JSB DRAW_LINE 
466 6988 ; 
466 6989 ; CALLED BY: 
466 6990 ; 
466 6991 ; DRAW_LAST_LINE 
466 6992 ; GET_READER 
| 466 69935 ; GET_DATA 
466 6994 ; 
466 6995 ; INPUTS: 
466 6996 ; 
466 6997 ; Address of output Line descriptor in R11. 
466 6998 ; 
466 6999 ; IMPLICIT OUTPUTS: 
466 7000 ; 
466 7001 ; LINE_NUM = LINE_NUM + 1 
466 pe88 3 
466 7003 ; RETURN STATUS: 
466 7004 ; 
466 7005 ; RO =  SS$_NORMAL. 
466 7006 ; 
466 7007 ;-- 
466 7008 ; 
466 7009 DRAW_LINE: ‘ 
QOOO224C°EF 3F 2466 7010 PUSHAW COL_NUM ; Output the Line to the screen buffer. 
00002248 "EF 35 pet PUSHAW LINE_NUM : 
0 DD 2472 7 \¢ PUSHL R11 : 
00000000'GF 0 F 474 701 CALLS #3,G*LIBSPUT_SCREEN 3 
OF 50 «CCE 47B 7014 BLBS 2 : Branch if no error. 
00000000'GF 00 FB rt eel2 CALLS #0,G*LIBSPUT_BUFFER 3; Output the screen buffer to the 
3 screen. 
re 4 7017 JLBC RO,998 ; Branch on error. ‘ 
D9 «3611 «6 7 18 BRB DRAW_LINE 3; Try eutput ing the Line again. 
0000224C°EF 01 QOOO021C4°EF Al 248D 7019 108: ADDW3 HEADER SIZE,#1,COL_NUM ; Erase the remainer of the Line. 
FF66 «630 «2499 7020 BSBw ERASE CINE : 
49C 7021 JLBC RO, ; Branch on error, 
00002222°EF O000224C"EF B81 24A2 7 § MPW SH AU SCREEN MIO TN ; Does the Line fit on the screen? 
19 14 26AD 7 BGTR 0 ; Branch if not. 
01 BA 24AF 7024 BICB #SCRSM_MORE_RT,- ; Clear the flag that indicates that 
0000047A'EF 3) f 5 SCROLL-FLAGS : here is more data off the right of 
: e screen. 
93 2486 7 $ BITB #<SCRSM_MORE _LFT!- 3; Are any of the other scroll flags 
487 7028 SCRSM_MORE_UP!- > set? 
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0000047A*EF 
0000047A'EF 


0000047A" 
00000476'EF 


00002247'EF 


00002288" EF 00002248" 


0000224C' 

00002248" 
00000000 ' GF 
13 
9 
F 
8 


00000000 ° GF 


0000224 
0000224C EF 


Show Cluster Utility 
Miscellaneous routines. 


487 9 
487 0 
12 248D 1 
BA 24BF 7 § 
406 7? 
11 rtf 7034 
88 24C8 7035 208: 
4CA 7 § 
4cF 7 
EO 24CF 7038 40S: 
re 7039 
E1 2407 7040 
Di =24DF 7041 
{5 4EA 7 r4 
3 4EC re 
4EF 7044 
3F 24EF 7045 
SF 4F5 £206 
FB 24FB 704 
E9 ape 7048 
FB 25 7049 
4 50C 7050 
0 250F 7051 
51 res 
D7? 2512 705 
DO 2518 7054 99$: 
05 251F 7055 
520 7056 
2520 7057 


33:28:08 eettute. sa 


15-SEP-1984 


4-SEP-1984 
SCRSM_MORE_DWN>,- ; 
ROL LC_FLAGS 


#SCRSM_MORE , SCROLL_FLAGS; 


v04-00 
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+ Branch if not 


Otherwise, be sure to clear the 
scroll summary flag. 
to common 


40$ _s 
#SCRSM MORE RT!SCRSM more, et the scroll flag to indicate 


SCROLL-FLAGS : 
enesv. CONT ,MISC_FLAGS,= ; 


#OVTSV_DCRT,OUT_DEV,99$ 
INE_NOM,LAST_DATA_LINE 


SET_REGION_DATA 
COL_NUM 

LINE_NUM 
#2,G"LIBSSET_CURSOR 
#9,G°L1BSUP_SCROLL 
SET _REGION_FULL 


LINE_NUM 
#1,COL_NUM 


that there is more data off the 
right of the screen 
Branch if sank iaenen display. 


Branch if terminal isn't a DECcrt. 

Have we hit the bottom? 

Branch if not. 

wee scrolling region to ne only 
e data erea of the scre 

ace cursor back to last line. 


Branch on error. 

Scroll up one Line. 

Branch on error. 

Reset the scrolling region to use the 
full screen. 

Adjust Line number. 

Reset column counter to first column. 


) 
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; FUNCTIONAL DESCRIPTION: 

This routine ' used to get a Line of data with all the fields filled 
with spaces. This _is done by disabling the display of all classes and 
: calling the GET_DATA routine. 

; CALLING SEQUENCE: 

: JSB GET_BLANK 

: CALLED BY: 

: CLUSTER_REPORT 

; OUTPUTS: 

: One Line of data output to the screen buffer. 

; RETURN STATUS: 


None. 
ys ; REGISTER USAGE: 
32 R4 - Used to save a mask of currently enabled classes. 
7087 :-- 
7088 
7089 GET_BLANK: 
08 OOO00043C'EF  00002248'EF 7090 BBSS LINE _NUM,BLANK_LINES,10$; Indicate that this is a blank Line. 
14 00000476'"EF 03 £0 7091 BBS ames? _RIP, MISC “FLA GS,20$; If retresh " ro ress. make sure 
709 3; we draw all the nes. 
00002248°EF €1 7093 10$: BBC - 3; Branch My line oo *t blank 
08 00000440'EF 709% PRIOR_BLANK SCINES;208 : oduring the last pass. 
o000c268°EF 06 4543 ANCL INE_N : Othervise se rant bump the Line number. 
: An 
0000 +4 DD 7097 208: PUSHL DATA_CNTRL ; Save a copy + the _current classes. 
OOOO2Z1FB'EF D4 7098 CLRL DATA_CNTRL : Disable all classe 
00002729'EF 00 FB 7099 CALLS #0,GET_DATA 3: Get blank Line of dete. 
07 50 =€9 BLBC 3; Branch on error. 
000021F 8'EF EDO POPL DATA_CNTRL : Reenable classes. 
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LSS 
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C969 C8 SINISE NN NIAAA AOO OOOO 
WN SO ODNAULS WN 0 OONAOULS Ut" O 0 
Se Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Se Ge Ge Se Se Se Se Sse Ge Se Sse Sse Se Sete Ses 
+ 
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as 
FUNCTIONAL DESCRIPTION: 
This routine simply calls the cluster display set ve routine if 
the local ports report is being displayed or it calls the local port 
display set up routine if the cluster report is being displayed. 
; CALLING SEQUENCE: 


; JSB SWITCH_DISPLAY 
S 


Page 149 | 
age 157) 


zw 


CALLED BY: 


WITCH_DISPLAY: 

BBS #RPTSV_CLSTR,=- ; Branch if we're displaying the 
CURRENT_REPORT ,10$ ; cluster report. 

cas #0, SHOW_CLUSTER ; Display the cluster report. 


Jump to common cod 
gents #0,SHOW_LOCAL 


00 
09 00000000'EF 
00000929°EF 00 


F 
0 1 e. 
OOOO0099F*EF 00 f\ ; Display the local report. 


PU PUPUPUPUPUSU SUSU 
SNS NIAAA AA AA AAA AAO AAA AAAOA AS 
SVU FN ETE IETS COO OPA AAO OOo 


St ee ee ee 
ee ee ee ee ee ee ee ee ee ee ee ee 


WWIWoRoRononononononony 2 2 2 2 2 | 2 OOOO 


M—OOONAUE WIN O OONAUE WO OONO 


Hw K 14 
aie Show Cluster utilit 15-SEP-1984 23:52: AX/VMS ae 
v04 Steen, ran ets $9 32:08 y acro V04-00 Page 15 


Data formatting rou CLIUTL.SRCJSHWCLSTR.MAR; 1 (58) 
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FUNCTIONAL DESCRIPTION: 


This routine formats the display data for the GET_DATA routine. It 
returns the formatted data in FORMAT_BUF and the number of characters 
worth of display data in FORMAT_BuF_CEN. 


The field descriptor parameter FOS$B_FORMAT determines if the routine 

will format the output in ascii, hexadecimal, or decimal. Up to a 
gecceers of data can be formatted in decimal. Ascii and hexadecimal 
ormatting has no restrictions. 


CALLING SEQUENCE: 
JSB FORMAT_DATA 
CALLED BY: 


DISPLAY_PTP 
OuTPuT Bom 


“PROC NAME 
PLAY-PORT~ STATUS 
PLAY-PORT~TYPE 


INPUTS: 
R10 = Address of field descriptor. 
OUTPUTS: 


Formated data string returned in FORMAT_BUF. 
Length of formatted data string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
RO = SS$_NORMAL or failed status. 


REGISTER USAGE: 


R3 - Points to the next free position in FORMAT_BUF where the 
the conversion is temporarily stored. : 

R5 - Contains the byte returned from the CONVERT_DEC routine. 

R6 - Used to index into the data. 

R?7 - Points to the address of the data. nlf 

R8 Used by HEX DISPLAY to convert a byte to two hex digits. 
Used by DEC DISPLAY to hold value from conversion table. 

R10 - Points to the field descriptor. ; 

R11 = Used to calculate the length of the conversion. 


ee eS ed ad = = = = = = od = = = 8 = SS 2 a 2 2 = 2 2 ss 


PUP PVLV IVD FUPUPUPUSUSU SUPE SUP IUSUSUDUUFUSUISUITUAIUUSTTSTTUFITSTII 
SSN SSS 
SF a a ee ee ee ee ee ee ee ee 

Se fam ie Dit Be i ie Di Bi ti Ni et fe ft fe tt tt et 
303006909 09 69 09 69 C9 G9 69 SII SND DP DAA AAA ADA TIT BP PPP PLES 

SOD NA NE WN 9 OD NA UNE WIN 3 O OD NOAM EWN (OOD NOU EWN CO OO NOUS WO OOnNOu 
PETE TEESE ICTS OEE TEE Ieee III Ieee eee Ie Ie rerererererere rere rerererere rere re rereereeereerereeeeee 
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F4 00002153' 


ODES of 
0 
00002158°EF 


20 


Ounonm 
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191 ; 
192 ; 
7F 1 e 
7F 71 -- 
7F 71 
7F 7196 FORMAT_DATA: 
8B 7F 71 PUSHR 
D ; 1 CLRL 
DE 1 MOVAL 
C CASE 
58C 
: C 
C 
58C 
58C 
598 
598 
598 TIME_DISPLAY: 
598 SASCTIM 
598 
598 
SAE 
SAE 


Ss in itn tn in nnn. nn in Pin in tn in, Pipi nin Pin nin ine Pi in» Pin in» in nin Pi in in iin i ine Sin Sin i Si Ii Ji Ji Si i i i i i ie | 
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R10,R11 Used by DEC_DISPLAY to hold the quadword of data to be 


Shift the last benee Ag ty - 
left two places. ° 
the first two Sigits of the year, i.e., 
dd-mmm-yy hh:mmmm:ss.cc. 
leaving dd-mmm-yy hh:mm. 


DE MOVAL 
DE MOVAL 
7D 5BC MOVQ 
7D 5BF MOVa 
DE aCe MOVAL 

5C 

5¢9 

5¢9 

5¢9 3 

5¢9 ; 

5¢9 3 

5¢9 

5¢9 ASCII_DISPLAY: 
D4 25C9 CLR 
9A ace MOVZ7BL 
90 308 10$: vB 
96 25D INCB 
91 509 CMPB 
12 2500 BNEQU 
91 25DF 20$: CMPB 
1g 5E2 BNEQU 
fF 5E4 SOBGTR 
6 5E8 30$: NCL 
0 25ED BSBW 

2f? 

SF JLBC 
31 5F6 Bre 


convert 


eat oR5,R6,R7,R8,R10,R11> 


SPLAY, 
AY 


1 
TIMADR=(R7) 


MB rode 5 TIM_DSCR,- ; 


ed to decimal. 


; Assume failure. 
: Get address of temporary buffer. 
3; Dispatch on format type. 


PLAY,- 
PLAY>. TYPE=B,LIMIT=A1 


3; Convert time to ascii. 


eighteenth characters of the time string 
condense the date by effectively removing 
dd-mmm-yyyy hh:mm:ss.cc becomes 
The Last eigth characters are simply not output, 


TIMBUF +9,R1 
TIMBUF +7.R7 
(R1)+, (R?)+ 
(R1)+,(R7)+ 
TIMBUF ,R7 


Format the data in ASCII. 


R6 

rose t LENGTH(R10) ,~ 
(RIDERS. (RS) 

M6, FDSB_LENGTH(R10) 


3(8)- oy Va 
FORMAT_BUF _LEN, 20S 
CHECK_VALID 


RO, FERR 
F DONE 


Get address of DAR) a 
Get address of 

Shift first tour” Znerecters left 2. 
Shift next four gharestere left 2. 
Get address of time 

Fall through to ASCII “ols LAY. 


Zero index. 
Save length of string for return. 


Store a character. 
de 


Loop if not. 

Any trailing spaces? 
Branch if not. 

Remove trailing sp 

Restore R ast ehisextes plus 1. 

Make sure the string contains valid 
ascii characters. 

preach if string contains non-ascii. 
one. 
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FS 189 
F 9 ; Format the data in HEXADECIMAL 
FS $583 ° 
F9 7 ; HEX_DISPLAY: 
56 4 AA GA 2579 7254 MOVZBL FDSB_LENGTH(R10) ,R6 ; Get the number of bytes of data. 
5 56 01 9C 25FD 7255 #1,R6,R11 3 Get the maximum Length of the 
601 7 2$ 3 _converted string. 
56 D7? 26 7257 108: DECL 6 3; Count down number of bytes. 
0B 19 26 7 28 BLSS 15$ :; Branch if data equals 0. 
58 6746 9A 725 MOVZBL (R7)CR6],R8 ; Get a byte of data. 
1 1 7260 NEQ 208 ; Branch if_not 2 leading zeros. 
5B (0 C 608 7261 SUBL #2,R11 3; Subtract 2 leading zeros from the 
60E 7 66 : length of the converted string. 
F1 11 260€ 726 BRB 10$ 3; Loop for all leading zeros. 
002153°EF 1 00 2610 7264 15$: MOVL #1, FORMAT BUF _LEN ; Length equals 1. 
0000215B'EF eons + ot 4 $2 = Soneg’ eat Ee : gsriag equals *'0’ 
58 58 FC 8F ; 621 7 85 208: ASHL #-4,R8,R8 : Scratch lower nyble. 
046 1 626 7268 BNEQ HIGH_NYBLE ; Branch if not single leading zero. 
58 OO 628 7269 DECL R11 ; Subtract one leading zero from the 
62A 7270 3 sont of the converted string. 
OC 11 262A 7271 BRB LOW_NYBLE ; Start format with low nyble. 
62C 7 2 HIGH_NYBLE : 
58 6746 9A 262C 727 MOVZBL (R7)CR6),R8 ; Get a byte of data. 
58 58 FC BF 9C 2630 727% =-4,R8,R8 : Scratch the low nyble. 
00c4 30 63 f t3 a rt CONVERT_HEX ; Convert the nyble to ascii. 
58 6746 9A 2638 7277 . MOVZBL (R7)CR6],R8 : Get full byte back. 
58 O00000F0 8F CA 263C 7278 ICL #*X000006F0,R8 : Mask the low nyble. r 
0B6 0 2643 7279 BSBW CONVERT_HEX 3; Convert the nyble to ascii. 
E356 F4 2646 7280 SOBGEQ R6,HIGH NYBLE 3; Loop for entire value. 
00002153"EF 5B 0 2649 7281 MOVL R11,FORMAT_BUF_LEN ; Save length of conversion. 
0074 1 2650 7 8 BRW F DONE ; Done. 
653 728 
633 F5as 
653 7286 ; Format the data in DECIMAL. 
$33 San * 
653 7289 DEC_DISPLAY: 
56 04 AA 9A 2653 7290 MOVZBL FDSB_LENGTH(R10) .R6 ; Get the number of bytes of data. 
08 56 91 2657 7291 CMPB R6 ; We can't handle more than 8 bytes. 
6E 14 265A 729 BGTR FERR : Error if more than 8 bytes. 
5A 7 65C 729 CLRO R10 : Start with quadword of zero. 
56 oY 65E 7294 10$: DECL R ; Count down the bytes. 
A 19 2660 7295 BLSS 15$ ; Branch if we've got all the bytes. 
SA 5A 08 79 2662 729 ASHQ #8,R10,R10 : Shift the byte into quadword. 
SA 6746 90 2666 729 MOVB = (R7)CR6),R10 : Get a byte of data. 
F 11 266A 729 BRB 10$ ; Loop for entire value. 
57  QOO004CA'EF OD 6 7299 15$: MOVAL DEC_TAB,R7 : Bgine to conversion table. 
6 it 0 6 7300 MOVL #DEC TAB _LEN.R6 ; 20 conversions steps in all... 
58 87 2 078 4 : 208: (R7)F,R : Get a value from the conversion 
3 table. ; 
009 30 2679 7 BSBW CONVERT_DEC : Convert to one decimal digit. 
00002158 ' 8F 3 D1 267C 7 04 CMPL RS #FORRAT BUF ; Have any characters been output yet? 
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als: ® 6 4 5 BNEQU 30% 3; Branch if so. 
5 9 6 $ TSTB R ; Was the conversion result = 0. 
es 6 7 pe OLY 40$ : If so, don't $9 e the character. 
83 655 0 81 2689 7 8 30$: ADDB #*X30,R5,(R3)+ 3; Convert to ess ond save character. 
£6 6 Fe 6 B 7 40$ SOBGTR 3; Loop for all 20 st 
00002153"EF 53 0000215B'BF C $30 f 10 SUBL3 eFORAAT BUF BR. - : Save the Length of the conversion. 
oF 42 36 7 1g BNEQ 0$ ; Branch if result wasn't zero. 
0000 1eR EF 9 3 731 MOVB #*A/0/ ,FORMAT_BUF ; Store a 
000021 01 b° 6A5 7314 MOVL #1, FORMAT BUF LEN 3 Length equals one byte. 
0018 Gat g 13 50$:  BRW F DONE : Done. 
AF 7 19 ASCIC_DISPLAY: 
00002153'EF Y 9A eA 4 \8 MOVZBL LA rage}! BUF __LEN ; Save length of string for return. 
67 00002153" EF 2 ecb f 9 mOvcs FORMAT BUF ab EN- ,(R7),(R3); Save the string. 
10 26C2 7 § BSB CHECK cite ; Make sure string contains valid ascii 
6c4 7 3; characters. 
03 50 €9 253 es : BLBC RO,FERR 3; Branch if not. 
50 01 DO 26C7 7396 FDONE: MOVL Atty NORMAL RO Indicate success. 
ODES 8F BA 26CA 7327 FERR:  POPR H<R3.RS .R6.R7,RB,-R10,R11> 
05 26CE 7328 RSB 
26CF 7329 
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FUNCTIONAL DESCRIPTION: 


This routine checks the string in the format buffer for valid ascii 
characters. 


CALLING SEQUENCE: 
JSB CHECK VALID 


CALLED BY: 
ASCII_DISPLAY 
ASCIC_DISPLAY 

INPUTS: 


FORMAT _BUF contains the string. 
FORMAT_BUF_LEN contains the Length of the string. 


RETURN STATUS: 
RO = SSS$_NORMAL if string contains valid ascii characters. 
REGISTER USAGE: 


R¢ - Counts down the characters in the string. 
Points into the buffer to the character to check. 
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RARER AAXAAAAAAAAAAA AA AA AAAAAA AAA AAA AAA AAA AAO 
MMMMMD SD SF OAIAAMAAAAAAAAOOAAAOQOAAANDAAAQAOAAAAANAOOAO 
DDD Bs 8 0 rn Fe Fe 8 ee rr eo 

a i i i i i i ee in i ie i ie Pine i in Pn ein in in i i nin Pi, i in in i i in i 

SN DS DS DDD DDD DS PT Be ES EB BE ANIA 
MM OOONOA NE WWIN SO ODONAUN EWN 0 OONAUE WN 0 ODNAU EWN 


WWWIWIAIAI AWN AI AI AAAI AINA 


PODIPIPININININPININININININYNINPINININININPIN9NY 


CHECK_VALID: 
PUSHR —, »R3> 


CLRL 

MOVL FORMAT BUF _LEN,R2 
MOVAL FORMAT 8 R3 
BSB ert 

POPR i we KoA ass 

RSB 


; Assume failure. 

; Get Length of string. 

; Get address of format buffer. 

; Check for none ascii characters. 


Re = Length of string 
R35 = Address of string 


RETURN STATUS: 
If all charcters in the string are valid ascii: 
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6E te ++ 

4 1 FUNCTIONAL DESCRIPTION: 

7 4 eet a string for valid ascii characters. Return immediately if an 

737 nvalid ascii character is found with R3 pointing to the character and 

4 e} failed status in RO. 

4 ¢ CALLING SEQUENCE: 

4 i JSB CHECK_ASCII 

4 § CALLED BY: 

7 es CHECK VALID 

f 3 BROCST 

7391 ; INPUTS: 

7 35 

739 

7394 

7395 

7 38 

739 

7398 

7399 


$S$_NORMAL 


RO 
R 
RS pointer to character following the string. 


If invalid character found: 


Se Se Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Se Ge Ge Se Se Sete 


DEAR AAAPAAAAAAAA AAA AAAAAAAAAAAAA AAA AA AAA A AAA AA OIA AO 
sles tns tes Bes tes Peel as esl esleslesl esas esl es esl es esl esl esleslesleslesl esl esas esas esl esas es esl esl esl asl asl eles les esl esl esl esl es esl as 


OVD OVW TD COD. DAA AAA AA AAA AAAAAA AA AAA AA AA AA AAA A AO 
—~ 
Pé 
J 
o 


; 740 RO = failed status 
§ 7407 a = number of characters remaining in string. 
7408 R3 = points to failed character. 
2 7409 
2 7410 ;-- 
2 7411 
ois CHECK_ASCII: 
50 D4 741 CLRL 0 3; Assume failure. 
20 63 91 7414 108: CMPB (R3),#°A/ / 3; Less than “x20 ? ve 
43 19 7415 BLSS 9 3; If so, character is not ascii. 
7E BF 6 91 og 20$: CMPB (R3) ,#*A/~/ 3 Greater than “X7E ? me 
98 14 741 BGTR 99$ : If so, character is not ascii. 
06 7418 INCL 3; Update pointer. : 
FO 52—CiFS5 2 7419 SOBGTR R2,10$ ; Loop for entire string. 
50 01 00 7420 OVL #S5$_NORMAL ,RO 3; Indicate success. 
05 7421 99$: $B 
74 ; 
74 
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6FC 7425 ; 4+ 
6FC 74 § : 
ore 8 ; FUNCTIONAL DESCRIPTION: 
6FC 74 § : This routine converts the value in R8 to one ascii format hex digit 
ort i ? 3 and outputs the digit to the format buffer. 
6FC 74 ¢ 3; CALLING SEQUENCE: 
6FC 7433; 
6FC 7434; JSB CONVERT _HEX 
ore 568% = CALLED BY 
6FC 74 § 3 
6FC 7438 ; LOW_NYBLE 
6FC 7439 ; HIGA_NYBLE 
6FC 7440 ; 
are 7441 ; INPUTS: 
6F 7442 ; 
6FC 7443 ; R3 - Points to the position in the format buffer where the result 
6FC 7444 ; will be stored. 
sore ort2 3 R8 - Contains the value to be converted in the low nyble. 
26FC 7447 ; OUTPUTS: 
core 7448 ; 
6FC 7449 ; One ascii character output to the format buffer. 
26FC 7450 ; 
sore 7451 ; IMPLICIT OUTPUTS: 
6FC 7452 ; 
26FC 7453; R3 updated. 
6FC 7454 ; R8 scratched. 
6FC 7455 ; 
6FC 7456 ; RETURN STATUS: 
26FC 7457 ; 
sore 7458 ; None. 
6FC 7459 ; 
26FC 7460 ;-- 
sore 7461 
6FC 7462 CONVERT_HEX: 
OA 58 91 26FC 746 CMPB R8,#10 ; Value less than 10? 
05 16 26FF 7464 BGEQU $ : Branch if not. - 
58 30 80 2701 7465 ADDB #*xX30,R8 : Convert value 0 through 9 to ascii. 
OA 11 704 7466 BRB 3; Jump to common code. 
58 OA (C2 2706 7467 10$: SUBL # ; Convert value “XOA through “XOF to 
58 00000041 F CO 2709 7468 ADDL = #*X41,R8 > ascii. 
8 8 90 at 7469 20$ MOVB RB, (R3)+ 3; Store the converted character. 
05 2713 7470 RSB 
714 7471 
2714 7472 
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FUNCTIONAL DESCRIPTION: 


CONVERT_DEC: 
CLRB 


714 : 
wig 559 
714 7478 3 This routine performs one step of hex to decimal conversion by dividing 
714 7679 ; the quadword in R10 by the quadword in R8. R8& contains the decimal 
ie 1 ? 3 weight of the digit for this step of the conversion. 
714 74 ¢ ; CALLING SEQUENCE: 
714 7483; 
714 7484 ; JSB CONVERT_DEC 
714 7485 ; 
714 74 $ 3; CALLED BY: 
714 7487 ; 
714 «7688 ; DEC_DISPLAY 
714 7489 ; 
714 7490 ; INPUTS: 
714 «7491 ; 
714 o488 $ R8 - Quadword value for this step from the conversion table. 
714 73 $ R10 = Quadword value to be converted. 
714 7494 ; 
714 7495 ; OUTPUTS: 
714 7496 ; 
714 «7497 ; R5 = Decimal digit resulting from this step of the conversion. 
Ay, or3e 3 R8 - Remainder to be used in next step of conversion. 
714 ; RETURN STATUS: 
714 3 
714 3 None. 
714 : 
714 3 
714 
714 

55 94 2714 R5 ; Assume result equals zero. 
SA 58 (C2 2716 10$: SUBL R8,R10 3 Quadword subtract with carry. 
58 59 D9 2719 SBwC R9,R11 : 

06 iF 271C BCS 20$ ; Jump if less than zero. 

55 96 271E INCB R5 ; Otherwise result = result + 1. 

F4 11 2720 BRB 10$ ; Loop. ‘ 
5A 58 CO 27 ¢ 20$: ADOL R8,R10 ; Quadword add to restore remainder. 
58 59 D8 27 ADWC R9,R11 2 

05 2728 RSB 

729 
729 
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] 3 y 3 .SBTTL Data display routines. 

729 1 : Addresses of Sore structures are passed to the data det Be rout ines ina 
729 § ; call frame. All addresses are determined by the routines CLUSTER_REPORT 
2 P3$7 ; and LOCAL_REPORT, which determine the format of the report. 

729 7505 : 

729 7 § 5 Peeemeeserrowensoosccsccesecccs + 

f 3 ie , 3 (AP) ' Number of elements H 

, 3 f ; : (AP)CCLUB_IN] | Base address of CLUB : 

, 3 es 1;  (AP)CSB_IN] | Base address of system block : 

, 3 i $ ; (AP)CCSB_IN] | Base address of CSB : 

, 3 3 5;  (AP)CPB_LIN] | Base address of path block i 

, 3 g3 ; ; (AP)CCDT_IN] | Base address of CDT : 

$2 7539 ; (AP) CPDT_IN] | Base address of PDT : 
2729 7540 ; tt te ee + 

$759 7541 ;  (AP)CMB_IN] | Address of miscellaneous buffer: 

729 £36¢ ; 

729 7543 ; 

729 7544 
2729 7545 
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; FUNCTIONAL DESCRIPTION: 
This routine gets a Line of data into the data buffer by calling a 
. 


routines that extract and format the data for eH Pie pooeee Ses 
n 4% or output. 


are to be displayed. The data is then stored 
CALLING SEQUENCE: 

CALLS GET_DATA 
INPUTS: 


Addresses of data structures from which the data is to be extracted are 
stored in a call frame. See above picture for details. 


IMPLICIT INPUTS: 


ADRS_TABLE, BITMAP_ADRS, and MAP_LEN must be set up according to the 
_FIND_LENTRY routine. 


OUTPUTS: 
One Line of ascii formatted data stored in DATA_BUF. 
RETURN STATUS: 
RO = SS$_NORMAL. 
REGISTER USAGE: 
R3 - Pointer to next free character position in data buffer. 
R6 - Counts down the number of characters that can be added 


to the data buffer before its length exceeds the width 
of the screen. 


PIPIPIPIPININININININININININININPINININIPIAIMAINININININIPININIPIPINNPY 


ODA— MONS SPNIND OOO OOO OO OOOOOODOOOOOOOVOOOOOOOOOOOOVODOVOOVODOOOOOODO 


R7 - agp hey the offset into the data structure used to extract 
e data. 

R10 - Points to field descriptor. ’ , 

R11 = Used to determine the number of fill characters (asterisks, 


question marks, or spaces) to add to the display field. 


WN OS OONAMNE WIN $9 OD NAME WIN  O ODNAUES WIN (OOD NAMULS WN OOONAULSWN—OOOnN tee 


Sa tae i i i in ii Bn Dn itn in in Dit Bi it Pi Din Din Sit inn itn i itn Din Di Din Pitan itn itn Dit i in in Din in itn itn itn Dit it Jin itn Jit Din itn itn Jit Jit itn itn Sit itn Jit Die A see 
OOOO OO0 OOOO OOO 0000 69 69 09 69 69 09 09 C9 SINISE SSP AAA AA AAMC 


PRIPDPIPIPIPINIPINIPININIPINININPIAIPINININYPININININININIPINIPIPIPIPIPINPIPYAIPIPINIPIPIPPIPPIPIPIPIPUPIPIPIPIPINY EO 


OEC8 ENTRY GET_DATA,“*M<R3,R6,R7,R9,R10,R11> 
00000476"EF 04 CA BicC amr SM_inveRsé .MiSC_FLAGS; Rohe sure inverse flags starts out 
; _clear. 
00. =«€1 BBC #RPTSV_CLSTR,- ; Branch if we're not displaying the 
C 00000000" EF CURRENT REPORT ,3$ ; cluster report. 
17 0060047 EF Os EI BBC #MFSV_CONT,MISC FLAGS,2$:; Branch if noncontinuous display. 
0000225C°EF 0000 aed D1 4 CMPL LENE RUA. CAD _LIRE 3 Have we overflowed the screen? 
A 19 4 BLSS ; Branch if not. 
18 88 4 BISB #SCRSM_MORE DWN! SCRSM_MORE - 
0000047A'EF 5 CROLL FLAGS ; Indicate screen cam be scrolled up. 
022c =s31 5 BRwW 0$ ; No need to get data for the Line. 
00000464'EF D0 5 2s MOVL CLSTR_H_SCROLL,=- : Get # copy of the scroll value for the 
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0000046C ‘EF 75F 7604 H_SCROLL_LINE 3 cluster report. 
5B 11 2764 7605 peg 4$ ; Branch to conmen code. 
O000468°EF DO 2766 76 $ 3$: MOVL LOCAL_H scote= 3; Get a copy of the scroll value for the 
eee H 7 f £6 H_SCROLC_L : local repor 
OO0O460°EF D7 27 6 8 4$: DECL VISCROLL— “TINE : Count down the number of Lines of 
ads poue 3 date. that are scrolled off the 
777 «=—7611 JGEQ 50$ 3 skip. this Line if it's scrolled off 
77C Pelg 3; _the screen. 
4 thee eH Ef pe 44 761 MOVAL DATA ny R3 3; Get pointer to data buffer. 
0002222" ¢ 783 7614 MOVZWL SCREEN VUfDTH,R6 : Get screen width. 
E 78A 7615 BBS #SCRSV_MORE _LFT,- : Branch if screen “has been scrolled 
08 0000047A' Mi 7 rere SCROLL “FLAGS, 5S. : left. 
30 2792 761 DEL ; Add startin field delimiter to Line. 
79 fois JLEQU 4 " ; Branch if it won't fit on the screen. 
00002270°EF 04 he folr 5$: CLRL START_BIT 3 overt scanning the bitmap with bit 
00 €1 27A0 7621 BBC #RPTSV_CLSTR,=- : Branch if we're not displaying the 
09 00000000' EF 7A2 76 ; CURRENT REPORT ,6$ : cluster report 
0000226C ‘EF 3 DO 27A8 76 MOVL #CLUSTER_MAP_ LENS MAP LEN; Save length of cluster bitmap. 
0 11 27AF 7624 BRB 10$ 3; Jump to common code. 
O000226C°EF 00 DO 2781 7625 6$: MOVL #LOCAL a _LEN,MAP_LEN ; pove length of focal bitmap. 
FBA8 30 2788 7626 10$: BSBW FIND_ENTR : Find an entry. 
7BB 7627 JLBC R ; Branch if an entry wasn't found. 
OC AA D3 27C1 7628 BITL FDSL Cass (are), - 3; Is this entry in a different class? 
00000001 ‘EF 7C& 7629 CLASS_SELEC 3 
ED 13 27C9 7630 BEQLU f 3; Branch if so. 
OC AA DS 27CB 7631 ITL FDSL_CLASS(R10) ,- ; Is this class enabled? 
000021F 8'EF re 76 § DATA_CNTRL 3 
| ae 03 oe ? BNEQU 20% ; Branch if so. 
3 P63) 3; Class is disabled, so fill this field with spaces. 
FC6B) = «330 103 763? . BSBW ADD_ONE_SPACE 3 Preceed the data with atleast one 
. Bee. 
o7be 7639 JLEQU 40$ oo if it won't fit. 
59 6A 9A 2700 7640 MOVZBL FDSB_FIELD_SIZE(R10), Ro : Get the size of the field. 
FC66 3 reg 7641 BSBW ADD_SPACES 3; Fill the field with spaces. 
0106 1 re ree 6RW 298" 3; Jump to common code. 
57 10 AA DO 27E6 7644 208: MOVL FDOSL_OFFSET(R10) ,R7 Get the SCS offset. 
08 BA 16 27EA 7645 JSB aFO$C_DISPLAY -ROUTINE (R10) 
7ED 7646 ; Call the display reut ine to extract 
7ED 7647 : and format the da 
59 50 00 27ED 7648 MOVL ; Save status from d splay routine. 
02 €1 27F £96? BBC anv ee: ; Branch if the data hasn't changed 
20 90000676 (Er 7F2 7650 MISC_FLA : since the last snapshot. 
00 00000434°EF O00002248°EF E2 27F8 7651 BBSS LINE- “NUR 65 228 _DIF,21$ ; Indicate the sone data in this Line 
804 7636 3 changed and the Line must be 
4 765 3 rewritten to the screen. 
0c 00002 or 01 1 4 7654 218: BBC Tre DCRT,OUT_DEV,22$ ; Branch if not DECcrt terminal. 
000017€ ‘EF 8 7655 MOVC3 VRS_BSCR,- 3 Store sequence to turn on inverse 
63 0000186" EF 1 £036 N NVRS “DSCRIB (R3) 3; video. 
30 2818 7657 22$:  BSBW  ADD_ONE_SPACE : Preceed data with one space. 
18 $o28 : Branch to display subroutine for this 
1B 765 : field. 
18 7660 JLEQU 40% : Branch if it didn't fit. 
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2— 59~—=s«éE8 7684 . BLBS R9,25$ :; Branch if display routine succeeded. 
if é§ 3 Display routine failed, so center a question mark in the field. 
59 6A 9A 7663 ‘ MOVZBL FDSB_FIELD_SIZE(R10),R9 ; Get the size of this field. 
ra 97 g 096 DECB R ; Subtract one for the question mark. 
59 59 FF BF OC 766 ROTL #-1,R9,R9 3; Calculate the number of spaces needed 
i) £008 ; to center the question mark. 
FC19 = «30 D $3 BSBW ADD_SPACES ; Add eaging spaces to buffer. 
2 roto JLEQU 40$ ; Branch if the spaces won't fit on the 
3 screen. 
08 59 ~—SCésSTF 4 3 rere BBC #31,R9,23$ ; Branch if even number of spaces. 
FcO7, 30 767 BSBW  ADD_ONE_SPACE ; Add one more Leading space. 
C 7674 JLEQU 4 ; Branch if it didn't fit. 
83 3F 90 2841 7675 23$: MOVB #*A/2/,(R3)+ ; Store the question mark. 
56 D7 2844 rors DECL 6 ; Update number of columns remaining. 
846 767 JLEQU 408 :; Branch if the question mark didn’ 
48 fore 3; fit on the screen. 
FBFB 0 48 767 BSBW ADD_SPACES ; Add trailing spaces to buffer. 
0098 1 Bee rose BRW 29$ 3; Jump to common code. 
59 6A 9A 51 res 25$: MOVZBL FDSB_FIELD_SIZE(R10),R9 ; Get the size of this field. 
59 Q00002153°EF 01 2854 re $ CMPL FORMAT _BUF_LEN,R9 3 wit she sorsetted data fit in the 
3 spla eld? 
78 13 «2858 rene BEQLU 8$ : aronsh te it fits exactly. 
24 1F 2850 rose BLSSU 7$ 3; Branch if its smaller. . 
05 A 91 o2e net CMP oS deaths 3; Is the data formatted in hex? 
OF 13 He; 7689 BEQLU 26$ : Branch if so. 
05 A 91 $63 N84 CMPB A Scacchi ; Is the data formatted in decimal? 
09 «13 869 769 BEQLU 26$ : Branch if so. 
ace PO0e : The data is ascii, but is larger than the field, so truncate the string. 
868 7696 © 
00002153"EF 59 00 $3 7697 MOVL R9,FORMAT_BUF _LEN ; Truncate the string by making its 
4 7698 : _length equal to the field size. 


26$:  — PUSHR «= #*M<R2,R4R5> 
MOVES #9. (R Sia A/#/.R9,(R3) : Fill field with asterisks. 
R9,R6. : See if it fit on the screen. 
29§ ; Jump to common code. 


56 59 


=“L22N8 


; If the string is ascii then left justify the string in the field. If 
; hex or decimal then right justify the string. 


61 +11 3 7699 BRB 28$ 3; Copy the string. 

874 770 

874 7701 ; . é é 
874 ; The data is non ascii and is larger than the field, so fill the field with 
74 3 asterisks. 

74 ; 

74 

34 74 

635 59 2A 63 0 

278: 
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NOULWIN MOO DNAMNEWN HS 
“” 

c 
o 
- 
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> 
9 
Ee) 
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59 Q00002153°EF (C2 SUBL FORMAT_BUF _LEN,R9 ; Get number of spaces to add. 


ee a 
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02 OS AA 91 A at CMPB FDOSB_FORMAT(R10) ,#HEX ; Is the data to be displayed in 
— 771 ; _hexadecimal? 
24 «13 3 720 BEQ! 275$ ; Branch if so. 
03 OS AA 91 8 of 1 CMPB FOSB_FORMAT(R10) ,#DEC ; . "e fate to be displayed in 
; _decimal? 
1 13 94 77 : BEQL 2758 ; Branch if so. 
3 ge 96 7724 PUSHR #*M<R2,R4,R5> 
sea 98 7725 MOVC3 FORMAT. BUF _LEN,- ; Copy the string into the data buffer. 
saciied rae as) Mm 
OOOO21SS"EF C2 A6 77 8 SUBL FORMAT. BUF _LEN,R6 ; Calculate columns rena ining. 
68 18 AD of BLEQU 408 ; Branch if the string didn't fit on 
AF 7730 ; the screen. 
FB97 = 330 AF 7731 BSBW ADD_SPACES 3 Add trailing spaces. 
38 Si see a ¢ 2758 BRB 29% ; Branch to common code. 
FB92 Ss «330 4 7734 BSBW ADD_SPACES ; Add leading spaces. 
887 7735 JLEQU 408 ; Branch if the spaces didn't fit on 
gee 77 $ 3; the screen. 
34 «= . - 2 PUSHR #*M<R2,R4,R5> 
00002153'EF 28 28BE 7738 MOVC3 FORMAT. BUF _LEN,- ; Copy the string into the data buffer. 
sone 78'e Ba SBCA 7740 porn poRendcat ase ' 
O0002153S"EF C2 bce 7741 SUBL FORMAT. BUF _LEN,R6 ; Calculate columns remaining. 
FV D oreg BRB 298 ; Branch to common code. 
34 6B poe 77435 288: PUSHR #*M<R2,R4,R5> 
gon fi 4 28 44 aoe: mMOVC3 FORMAT BUF LEN. ; Copy the string into the data buffer. 
BA aes £746 POPR = #*M<R27R4,R5> 
QO002153"EF C2 2865 774 SUBL FORMAT. BUF _LEN,R6 ; Will it fit on the screen? 
9 1B 28EC 7748 298: BLEQU :; Branch if it didn't fit. 
FB52 «430 28EE 7749 BSBW ADD_ONE_SPACE ; Follow with one space. 
4 19 8F1 7750 BLEQU 40$ ; Branch if it didn't fit. 
:. é 7751 BCC #MFSV_INVERSE,- ; Branch if the data hasn't changed 
14 00000476'EF F oree MISC FLAGS, 30$ : since the Last snapshot. 
OC 00002247'EF 01 1 28FB 775 BBC #OVTSV DCRT,OUT_DEV, 30S ; Branch if not DECcrt terminal. 
00000143'EF 8 2903 7754 MOVC3 DCRT_NOATR_DSCR°- ; Store sequence to turn off attributes 
63 0000014B8'EF 909 7755 DCRT_NOATR_DSCR+8,(R3) ; Cinverse video). 
FBOD 930 290F £736 30$: BSBW DELM ; Add ending delimiter to Line. ; 
315 775 JGTRU 10% ; Loop if there's more room on the Line. 
02 €5 2917 7758 40$: BBCC #MF SV sOvERSE - ; Branch if the data hasn't changed 
14 0000476 F 919 7759 MISC FLAGS, 45$ : _since the last snapshot. 
OC 00002247'EF 1 1 291F 7760 BBC #OVTSV_DCRT OUT_DEV,45$ ; Branch if not DECcrt terminal. 
0143°EF 8 2927 7761 MOVC3 DCRT_NOATR_OSC 2 ; Store sequence to turn off attributes 
6 014B'EF G o7e¢ DCRT_NOATR DSCR+8,(R3) ; (inverse video). : 
0000199B"&F 5 sie db "BF 86C3) (29 7765 45$: SUBL3 #DATA_BUF,R3,DATA_DSCR ; Save Length of data line. 
58 000199B°EF DE 293F 7764 MOVAL DATA_DSCR.R11 ; Get address of descriptor for the 
3e8 £703 ; line of data. 
34 00000476"EF O03 £0 Bee He BBS #MFSV_RIP,MISC_FLAGS 498; tf rotresh a rogress. make sure 
0000043" 48°EF 94E 77 BBS LINE_NUM,BLANK LINES 49$; Branch if this is a new blank Line. 
7 000004 GEE §o0934 ‘EF 34 Osh 7790 BBS LINE"NUM.LINE BIF,49$  : Branch if this Line has changed. 
O¢ Oo0dz247"EF 01 ET 3966 ihe BBC #OVTSV_DCRT ,OOT_DEV,48$ ; Branch if output device is not a 
3 crt termin 
00002248°EF £0 296E 777 BBS LINE _NUM,- : Branch if this Line changed on the 
08 $0004 38" EF 974 7774 PRIOR_LINE_DIF ,49$ ; last pass and must be rewritten to 
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97A 7775 3 remove the inverse video. 
sonseess "et 06 97A 46 48$: INCL b ANE NUR ; Otherwise, just bump the Line number. 
1 38 777 BRB $ + And finish up. 
FAE1 30 29 7778 498: BSBW DRAW _LINE ; Output the Line. 
50 01 DO 2985 7779 50$: MOVL #SS$_NORMAL ,RO 
04 2988 7780 RET 
+ 44 a4 
989 7782 
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989 7784 -SBTTL = General data display routines. 
989 7785 ;+ ae 
989 77 § ; 
: 4 f 3 FUNCTIONAL DESCRIPTION: 
989 77 § ; This is the default data display routine. It gets the address of the 
989 4 0; data by first determining the type of structure cencemnene the data 
989 7791; by et i the prefix of the structure name argument. If the prefix 
989 ore 3 is valid, it is converted to an index into the call frame which 
989 7793; contains the base address of the data structures containing the data. 
989 7794 ; the base address of the oroper structure is then added to to get 
2 4 £732 3 the address of the data. FORMAT_DATA is then called to format the data. 
989 5589 ; Note: DISPLAY_FIELD can only be used when the data to be displayed is found 
989 7798; in either the club, a cluster system block, an SCS system block, path 
989 7799; block, or connection descriptor table, a pork descriptor table, or the 
989 7800 ; misce(laneous buffer. The argument SfRUC URE_NAME given in the 
989 7801; DEFINE FIELD macro must be a valid SCS offset and must begin with CLUB. 
989 7 ; : SBS, PBS, COTS, PDT$ or a miscellaneous buffer offset begining with MBS. 
989 78 3 Any other argument will cause the field to be filled with question 
989 7804; marks. 
989 7805 ; 
989 £a06 3 
989 7807 ; CALLING SEQUENCE: 
989 7808 ; 
989 7809 ; JSB DISPLAY_FIELD 
989 7810 ; 
989 7811 ; CALLED BY: 
989 4a 3 
989 4 3 GET_DATA 
989 7814; 
989 7815 ; INPUTS: 
989 7816; 
989 7817; R7 = SCS offset from DEFINE_FIELD macro. 
989 7818 ; R10 = Address of field descriptor. 
989 7819; 
989 7820 ; 
989 7821 ; IMPLICIT INPUTS: 
989 78 § : ce 
989 4 ; AP = Address of call frame containing the addresses of the data 
44 4 : 3 structures to be used when data is extracted. 
989 7 § 3; OUTPUTS: 
389 7 : : 
989 7828 ; Formated data string returned in FORMAT_BUF. 
; 4 4 3 3 Length of formatted data string returned in FORMAT_BUF_LEN. 
989 7831; 
? 4 § 3 RETURN STATUS: 
3 9 f : ; RO =  $SS$_NORMAL or failed, or status from FORMAT_DATA. 
989 7 § ;-- 
989 7 
989 7 § DISPLAY_FIELD: 
OFC ef BB 2989 7 PUSHR #*M<R2,R3,R4,R5,R6,R7,R8B> ; 
0 D4 298D 7840 CLRL RO 3; Assume failure. 
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VL ° ; Set index past number of arguments in 
58 01 00 4 F 4 $] MO #1,R8 S$ tT oe b f i 
: 6 me. 
54 Opgooss? "cr DE 933 7 rk MOVAL SYM_PRFX,R4 ; Point to array of symbol prefixes. 
4 AA Bf 999 7844 MOVAL FDSC_OFFSET_PRFX(R10),R5; Get the address of the src2 string. 
53 4 A 2990 7845 10S: MOVZBL (R4)F,R3 : Get the Length of srci string 
§ BB 9A0 7 46 PUSHR #*M<R$> 
65 64 ; 38 f r ea Big (03) «th : Check for valid prefix. 
3 9A8B 7 rt BEQL 208 3; Branch if valid prefix. 
3 C SAA 7850 ADDL R3,R4 3; Point to next prefix. 
FFEA 58 1 6 Fi 29AD 7851 ACBL R6,#1,R8,10$ ; Loop for all arguments, 
C 11 «298 f 26 BRB 3; Branch if invalid erg tts. 
54 0000049C' 4 o +s oee7 208: suck SO ait 3 a: the grerts “CDT$''? 
; Branc not. | 
57 FFFFFFFO 8F 3 SBE 7855 ADDL #SHCSL_CDT_DIF ,R7 ; Adjust CDOT offset to compensate for 
905 7 2$ ; _portion of CDT not stored. 
10 11 29C5 785 BRB 408 i Skip check for ‘'PDTS"’. 
54 eee pI 434 re28 30$: cnr 8 aa : 4: the goths “PDTS$''? 
3 Branc not. 
57 FFFFFFGC 8F tb 30 7860 ADDL #SHCSL_PDT_DIF ,R7 ; Adjust PDT offset to compensate for 
907 7861 : portion of PDT not stored. 
57 6€48 CO 2907 £008 40$: ADDL (R12)CR8),R7 ; Get address of data. : 
O35F 30 4 ree? BSBwW CHECK_DIF 3; Check for change in data since last | 
3; scan. 
FB9E 30 290 7865 BSBW FORMAT_DATA ; Format the data. 
O1FC 8F BA 29E1 7866 99%: POPR #*M<R2,R3,R4,R5,R6,R7,RB> 
05 a ¥ 7867 RSB 
9E6 7868 
29E6 7869 
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FUNCTIONAL DESCRIPTION: 


This routine is used to convert a numeric value into a string. i 
value is used as an index into a list of counted one {7 ate ings The 
ceoreee of the indexed string is then used when calling the ORMAT DATA 
routine. 


Note: The FORMAT argument in the field de 
routine must be of the type ‘‘ASCIC"’ 


scriptor for any field using this 
CALLING SEQUENCE: 

JSB DISPLAY_STRING 
CALLED BY: 

DISPLAY_RPORT_TYPE 


DISPLAY_CABLE_ STATUS 
DISPLAY “LOOPBACK. STATUS 


SSN 
2 Cd CO Cd CD CD Cd CD 0D G9 OD OD Cd Od C9 GD Co. OD Cd Cd CD Cd CD C9 C9 CD. CD OD0D 
DOOOOO OOO OWDWODWOWOOOO VV 
OWONAMNE WIN 9 OD NAME WH OC OONOUS wn 


CTUETR ETI ETAT ETN ETI ETI ET TET ETI ETI ETE CTE CTU ET CTU CTECTECTUCTE CTU TOCTU CTU CTUCTECTUCTUCTUCTICTICTOCTOCTICvICTICTUCTIOCvIOTD 


9 
9 
9 
9E6 
9E6 
; 6 
Fe 
9E6 
9E6 
EG 
9E6 
9E6 
9E6 
9E6 
5E6 
9E6 
9E6 
9E6 
9E6 
9E6 
4 ? INPUTS: 
33 6 R7 = Value to be used as an index into a List of counted ascii 
9E6 strings. 
33 e R8 = Address of a List of counted ascii strings. 
9E6 OUTPUTS: 
$3 6 7900 
9E6 7901 Formated data string returned in FORMAT_B 
$9 ° a Length of formatted data string Ben semen Wn " FORMAT_BUF_LEN. 
9E6 7904 
9€6 7905 ; RETURN STATUS: 
9E6 7906 
9E6 7907 RO = SS$_NORMAL or failed, or status from FORMAT_DATA. 
9E6 7908 
9E6 7909 ;-- 
9E6 7910 
9E6 7911 DISPLAY_STRING: 
BB 9E6 eels PUSHR #*M<R7,R8B,R9> 
D SEA 791 TSTL R7 ; Index equal zero? 
13 29EC 7914 BEQLU 208 ; Branch if s 
9A 29EE 7915 108: MOVZBL (R8)+,R9 ; Get the sumer of characters in the 
9F1 4a ; _descriptor. 
c0 9F1 791 ADDL R9,RS ; Point to next descriptor. : 
F OF4 4 4} SOBGTR R7,10$ ; Loop till R7 equals 0 and R8 points 
9F7 791 3 to the string. 
cf 9F7 7920 208: ADOL 3; Get address of string. 
0 29FA 7921 BSBW PoRRA T_DATA : Format the string. 
BA 29FD 79 $ POPR WoMCRTT R8,R9> 
05 2A01 79 RSB 
v3 7924 
A02 7925 
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~ 6 7 -SBTTL = Cluster class display routines. 

A 43 § 3+ 

A 930 ; 

~ 43 1 ; FUNCTIONAL DESCRIPTION: 

A 79 : : The following routines are used to disol ay the bit in the CLUBSL_FLAGS 
A 7934 ; Longword in the CLUB and the CSBSL_STATUS Longword in the CSB. These 
A o 5 : bits are displayed as a one or zero only. 

i 29 4 : CALLING SEQUENCE: 

Ade 79 : ; JSB DISPLAY_QF_VOTE 

A02 7940 ; JSB DISPLAY_QF~ SAME 

AQ? 7941 ; J$8 DISPLAY QF “ACTIVE 

AO pate : 

AO2 79435 ; CALLED BY: 

AO2 7944; 

A02 7945 ; GET_DATA 

AO2 7946 ; 

AO 7947 ; INPUTS: 

A02 7948 ; 

A022 7949; R7 = Offset of longword containing the bit to rhe ng 

sO £320 3 (AP)CCLUB_IN] = Base address of club or cluster system block. 

240 195¢ ; IMPLICIT INPUTS: 

2a02 7954 ; AP = Address of call frame containing the addresses of the data 
se P32? 3 structures to be used when data is extracted. 
2A0 7957 : OUTPUTS: 

AQ2 7958 ; ; 

AQ2 7959 ; Formated data string returned in FORMAT _BUF. 

40 £360 3 Length of formatted data string returned in FORMAT_BUF_LEN. 

Ag 196 : REGISTER USAGE: 

AO2 7964: R7 = Offset into data structure where data is located. Converted 
2A02 7965 : into actual address of data. 


im 
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R8 = Index into call frame to locate structure base address. 
A02 7967 ;-- 
A02 7968 
A02 7969 DISPLAY_QF VOTE: 
91c0 of BB 2A02 7970 PUSHR #*M<R6,R7,R8B> 
8 01 DO 2A06 7971 MOVL #CLUB_IN, RB ; Set index into call frame to club 
AO 138 ; base address. 
57 6C4 CO 2A09 797 ADDL (R12) CR8),R7 ; Get address of data. 
561 00 AOD 7974 MOVL  #CLUBS$V_QF_VOTE,R6 > Get number of bit to check. 
0031 0 2A10 7975 BSBW DISPLAY QF ; Convert to formatted string. 
01CO 8F BA Al ooze POPR #*M<R6,R7,RB> 
5 2A17? 797 RSB 
Al 78 
A118 7979 DISPLAY_QF_ SAME: 
gico 8F BB 2A18 7980 PUSHR  #*M<R6,R7,R8> ; 
8 O03 DO 2AIC 7981 MOVL #CSB_IN,R8 ; Set index into call frame to cluster 
AlF 79 ¢ 3; _system block base address. 
57 6€48 CO 2AIF 798 ADDL (R12)CR8),R7 ; Get address of data. 
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56 603 8 A23 9 4 MOVL er seey QF _SAME,R6 ‘me number of bit to check. 
gol? 2A 985 BSBwW LAY_aF : Convert to formatted string. 
01CO 8F A 2A 79 § POPR Daache, ay. R8&> 
5 " 4 6 RSB 
A2E 7989 DISPLAY_QF ACTIVE: 
g1co 8F BB 2A 990 “PUSHR ag P R7,R8> 
8 03 DO 2A 79 MOVE RB ; Set index into call frame to cluster 
A 799 ; system block base address. 
57 6€48 CO 2A35 799 ADDL (R12) ER83, R7 ; Get address of data. 
09 0 2A39 7994 MOVL 4h ag! Pt ACTIVE ,R6 : Get number of bit to check. 
909 0 Ate 7995 BSBW DISPLA : Convert to formatted string. 
01CO 8F BA ASF 799 POPR #*M<R6, Ry. R8> 
OF SMe F998 ne: 
A44 67999; 
re 444 3; Convert the bit into ~ x scii string ‘YES’ or ‘'NO’’. 
ASG 8002 
ASG 4 DISPLAY_QF: 
O2F6 30 ree: Boe BSBW CHECK_DIF ; cok for change in data since Last 
0467 56 €1 2A47 B008 BBC R6,(R7),10$ 3 oes if QF _VOTE isn't set. 
57 04 2A4B Ha CLRL R7 : Get index info string array. 
03 11 2A4D 8008 BRB 208 : Branch to commo 
57 O01 ODO 2A4F 5008 10$: MOVL R7 3 Get index into string array. 
58  00000404'EF DE AS2 8010 20$:  MOVAL veg" NO_STRING,R8 : Get address of string array. 
FF8A AS Hae BSBW DISPLAY_STRING : Format the string. 
05 2A5C ag RSB 
2A5D 801 
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ASD -SBTTL = Systems class display routines. 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


This routine is used 
produce the SOFTWARE 


CALLING SEQUENCE: 
JSB DISPLAY_SOF TWARE 


to combine SBST_SWTYPE and SBST_SWVERS to 
field. 


CALLED BY: 
GET_DATA 
INPUTS: 
R7 = Offset to SBST_SWVERS in the system block. 
(AP) CSB_INJ = Address of system block. 
IMPLICIT INPUTS: 
AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 
OUTPUTS: 


Formated data string returned in FORMAT_BUF. 
Length of formatted data string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
Status returned from FORMAT_DATA routine. 
REGISTER USAGE: 


ocvuvvo VT VT VTC VTCVCUVVVCVCVCVCTVCVTVCVCVTC"CC000000"0"00"0"0°00€0 


R7 = Offset into data structure where data is located. Converted 
into actual address of data. 
R8 = Index into cali frame to locate system block base address. 


DISPLAY _SOF TWARE : 
PUSHR 


PPP PPPPPEPHEPHEPEPHEPEPPEPHPPPr rr rrr rr rr rrrrrrrrrr,r>,r 
SOONAUE WIN O OD NAN ES WIN SO OD NAME WN OOD NAMEN -OOONAauw 


re Oe ee esl ah ab ah sb Ab db Ab db sb sb db db Ab ab ab sb sb ab ab ab dh ab db ab sb ah ab ab dd ab db bab ad) 
DDD GPP BE EE BS EB EE WII NI WII NIANINIAIPDINININPIPYININININY - 2 SS 


OOOOCOOCOOCOOCOCCOCSOSSSOSOSOOOOOCOCO COCO OOOOOOOOOCOOOOCOCOCoOOo 


©9.0009 0009 00 Gd Cd 0d 09 CD C9 CD. C9 C9 Cd Od Cd Gd Cd Cd CS OD CD CD CD Cd CS C9 CD Cd Od C9 GD CD OD CD CD GD C9 CD CD C9 GD C909 CD CD CD: 


ESS SS SY 
Or—-oC oT TTF 


0300 8F a #*M<RB RID ‘ 
FF25 BSBW DISPLAY FIELD ; Format the software version. 
59 0000215B°EF 00 6 1 MOVL PORRAT By oR? 3; Save the version temporarily. 
58 02 00 6 § MOVL #SB_IN,R : Set index into call frame to system 
ASE 806 ; block base address. 
57 24 D0 2A6E 8064 MOVL #SBST_SWTYPE,R7 : Get software type offset. 
57 6ce8 C8 A ! 065 ADDL (R12)CR8),R 3; Get address of data. 
15B°EF 67 DO 2A75 8066 MOVL (R7), FORMAT_BUF > Store software type in buffer. 
1SE°EF 20 90 ne por MOVB #*A/ /,FORMAT_BUF +3 ; Place a space between type and 
3 version. 
1SF°EF 59 DO 2A ish MOVL R9, FORMAT _BUF +4 ; Store the version in the buffer. 
19s"FF os DO 2A8A 8070 MOVL #8, FORMAT BUF _LEN ; Buffer length = 8 characters. 
300 8F BA 2A91 071 POPR #*R<RB,ROS 
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0180 8F 

58 8603 

57 = 6C48 

0299 

00000018'EF 67 08 
57 00000041 8F 
57 gees 

028 

00000018°EF 67 
57 00000018'EF 
FAB4 

0180 8F 


Show Cluster Utility 


- Cluster system block display routines. 


As iS 


0; 


Be Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Gee Ge Ge Ge Se Se Se Se Se 


DI 


oOo 
— I 9 M~OOODODO0OOO OOOO 000000000000 006000 00 C9 0000 SIN 


ee ed eed ed ee eed ed ed ed ed eed ee ee ee ee aed ae ed a ee ee ae ee aed ed ed eed ed eed ed eed ed OO OOOOOOOOCOCOCOCOO 
PRO ODNAUNE WD SO OONAUES WN 9 OD NAME WIN 9 ODNAUES WN OC OONOUS win 


> 
so 
o 
©90009 09 00 09 09 Cd Cd C9 09 09 OD Gd G9 Cd Cd CD CD CD GD GO Gd OD Od 09 Cd Gd GD C9 C9 OD CD C9 C9 CO CD G9 C9 CD CD CD CD 
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i oe tab 9 $937 :08 AX/VMS Macro V04-00 
64-SEP-1984 23:24:01 CCLIUTL.SRCISHWCLSTR.MAR; 1 


-SBTTL = Cluster system block display routines. 


ys 


FUNCTIONAL DESCRIPTION: 
This routine is used to display the protocol version and ECO level. 
CALLING SEQUENCE: 
JSB DISPLAY_PROTOCOL 
CALLED BY: 
GET_DATA 
INPUTS: 


R7 = SCS offset CSBSB_ECOLVL from DEFINE_FIELD macro. 
(AP) CCSB_INJ = Base address of selected cluster system block. 


IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 


structures to be used when data is extracted. 
OUTPUTS: 


Formated ascii string returned in FORMAT_BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 


RO = SS$_NORMAL or failed status from FORMAT_DATA. 
SPLAY Se nee 
“PUSHR ocean “* R8> 
MOVL #CSB_IN,R8 Set index into call frame to path 


block base address. 


ADDL (n12)ER8 oR7 3: Get the address of the dat 

BSBW CHECK_DI ; Check for change in data since last 
3 scan. 

ASHL #8,(R7), SCRATCH 3; Store eco level in 2nd byte of 
3 scratch location. 

MOVL CHieneR YgRNUM. R7 ; Get version number offset. 

ADDL (R12) st ; Get the address of the data. 

BSBW 3; Check for change in data since last 
3 scan. 

MOVB (RT) SCRATCH : Store version number in Ist byte of 
: scratch location. 

MOVAL SCRATCH,R7 ; Get address of data. 

BSBW FORMAT BATA ; Format the data. 

ReBe #*M<R7>RB> 
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AD 135 
ADO BIER S 
Add 81 8 > FUNCTIONAL DESCRIPTION: 
4 179 : This routine is used to display the state of the cluster system. 
AD 148 : CALLING SEQUENCE: 
AD 146 : JSB DISPLAY_CSB_STATE 
3 146 : CALLED BY: 
ADO 8148 ; GET_DATA 
ADO 8149 > 
me 139 : INPUTS: 
AD 138 : R7 = SCS offset CSBSB_STATE from DEFINE_FIELD macro. 
ne 8154 ; (AP) CCSB_INI = Base address of selected cluster system block. 
ADO 8135 : IMPLICIT INPUTS: 
ADO R139 : AP = Address of call frame containing the addresses of the data 
ae $128 3 structures to be used when data is extracted. 
A s 
aoa 3199 3; OUTPUTS: 
A 16 : Formated ascii string returned in FORMAT_BUF. 
me Bis 3 Length of formatted et string returned in FORMAT_BUF_LEN. 
ADO 165 : RETURN STATUS: 
ADO 169 : RO =  SS$_NORMAL or failed status from FORMAT_DATA. 
ADO 8168 ; 
Ao BIT0 
ADO 8171 DISPLAY_CSB_STATE: 
BB 2AD0 76 PUSAR #*M<R7,RB8> 
DO 2AD4 817 MOVL #CSB_IN,R8 3: Set index into call frame to path 
AD? 8174 és : block base address. 
CO 2AD7? 8175 ADOL (R12)CR8),R7 ; Get the address of the data. 
30 poe 178 BSBW CHECK_DIF : thech for change in data since Last 
DE 2ADE 817 OVAL CSB_STATE_STRNG.RB > Point to array of state descriptors. 
9A 2AE 158 MOVZBL (R73,R7 ; Get the state. — 
7 2AE8 8180 DECL ; Subtract one so index starts at zero. 
; ts AEA 13) BSBW DISPLAY_STRING : Format the string. 
BA 2AED 1 § POPR #*M<R7,RB> 
05S 2AF1 818 RSB 
i AF sige 
F AF 185 


sch 


58 


00000452'EF 
FED 
0180 8F 
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ot 
; FUNCTIONAL DESCRIPTION: 


This routine is used to display the state of the cluster system. 


CALLING SEQUENCE: ‘ 
JSB DISPLAY_CSB_STATUS 

CALLED BY: 
GET_DATA 

INPUTS: 


R7 = SCS offset CSBSL_STATUS from DEFINE_FIELD macro. 
(AP) CCSB_INJ = Base address of selected cluster system block. 


IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 
‘OUTPUTS: 


Formated ascii string returned in FORMAT_BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
RO = SS$_NORMAL or failed status from FORMAT_DATA. 


Be Se Se Se Ge Ge Se Se Be Ge Ge Se Ge Se Be Se Se Se Se Se See Se Se Se Sete Se Se Ses 


ASSUME CSBSV_LONG BREAK EQ 
ASSUME CSBSV~MEMBER EQ 
ASSUME CSBSV_REMOVED EQ 


DISPLAY_CSB_ STATUS: 
PUSAR #*M<R7,R8> 
MOVL #CSB_IN,RB 
ADDL = (R12) CRB),R7 
BSBU © CHECK_DIF 


0 


™N— 


Set index into call frame to path 
block base address. 

Get the address of the data. 

Check for change in data since last 


scan. 
Get the status. 


(R7),R7 
BICL #-ccCSBSM LONG BREAK! ~ Clear any non-status bits. 


Point to array of status descriptors. 
Format the string. 
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FUNCTIONAL DES 
This rou 
stored a 
both . 


code = 
remote s 


JSB 
CALLED BY: 


INPUTS: 


R7 
(AP) CPB 


IMPLICIT INPUT 
AP 


OUTPUTS: 


RETURN STATUS: 
RO = 


DISPLAY_RPORT_TY 
PUSHR 
MOVL 


ADDL 
BSBW 


EXTZV 
SUBL 
BNEQ 
MOVL 


(AP) CSB 
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Circuits class display routines. 


CRIPTION: 


tine is used to displa 
t offset PBSL_RPORT_TY 


e a port type of 2. If 
° ardware typ 
a 


then the 
ystem is checked to m 


CALLING SEQUENCE: 


DISPLAY_RPORT_TYP 


GET_DATA 


the remote port type using the da 
in the ath block. cl?a0s and £75805 


PBSL_RPORT_TYP indicates a port type 
e field in the system block for the 
e the distinction. 


SCS offset PBSL_RPORT_TYP fren, SGP ane FIELD macro. 


INJ = Address of path bl 


OCK. 


IN] = Address of system block. 


S: 


= Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 


Formated ascii string returned in FORMAT BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


SS$_NORMAL of failed status returned from FORMAT_DATA. 


P: 

#*M<R7,RB> 

#PB_IN,R8& 

(R12) CR8),R7 

CHECK_DIF 
#PBSV_PORT_TYP,- 

SOUSS PORT IVP. (A?) AT 
#2,R 

10$ 

#SB_IN,R8& 


Set index into call frame to path 
block base address. 

Get the address of the data. 

Check for change in data since last 


scan. 
Get the port type code. 


Convert port type code to index into 
orrey 9 port type Gescriptors. 
Branch f port is not a C1780 or 
Set index into call frame to system 
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B34 ¢ ; _block base address. 
58 6C€48 D0 2834 MOVL (R12) CR8I,R8 ; Get the address o} the system block 
8 346 a8 D0 SB3B 30S MOVL  SBST HUT YPE(RBD ,RE ; cfor the eases Gueten haréearé 1 
: Ge e remote system hardware e. 
30383756 8F 8 D1 2B $ CMPL +807 3; Is the remote ayeten an 117980? ” 
146 13 284 BEQL ; Branch if so. 
35383756 8F 58 ft B4 $ CMPL RB, #*A/V785/ 3; Is the cenete system an 11/785? 
be SBce 8310 Gea. 198 btn Fe 
L ; Bump por e 
30353756 BF 88 OD B50 11 CMPL «RB, #*A/V750/ ; Te the port typ system an 11/750? 
A 12 o2 \§ BNEQ 3 A, if not. 
58 OOO002CA*EF ODE 323 F 10$ MOVAL RPORT_TYP_STRNG,R8 3 oe. fe errey of port type 
: descriptor 
FE83 30 286 15 BSBW DISPLAY_STRING 3 pispley the port type string. 
0180 8F BA 286 18 a98 POPR #*M<R7,RB> { 
05 286 1 RSB 
B68 a319 
B68 8319 
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44 1 3++ 

86 § ; FUNCTIONAL DESCRIPTION: 

+4 5 ; This routine is used to display the state of the virtual circuit. 

86 $ > CALLING SEQUENCE: 

86 : ; JSB DISPLAY_CIR_STATE 

B6 1 : CALLED BY: 

B6 § 3 

B6 : GET_DATA 

B6 4; 

+e 5 ; INPUTS: 

B68 337 : R7 = SCS Offset PBSW_STATE from DEFINE_FIELD macro. 

B6 338 : (AP) CPB_INJ = Base address of selected path block. 

B68 340 : IMPLICIT INPUTS: 

B6 3e : AP = Address of call frame containing the addresses of the data 

$80 $7 3 structures to be used when data is extracted. 

B68 8345 ; OUTPUTS: 

B68 8346 ; ; 

B68 8347 ; Formated ascii string returned in FORMAT_BUF. 

90) oee8 : Length of formatted ascii string returned in FORMAT_BUF_LEN. 

see 8330 : RETURN STATUS: 

286 Sot 3 ; 

+e B35 : RO = SS$_NORMAL or failed status from FORMAT_DATA. 

af 354 :-- 

B6 S¥22 

B68 8356 DISPLAY_CIR STATE: 
0180 8F BB 286 Sy2e PUSAR #*M<R7,R8> 
58 04 DO 2B6C 8358 MOVL #PB_IN,R8& :; Set index into call frame to path 

B6F 8359 ; block base address. 

57 648 CO +4 8360 ADDL (R12)CR8),R7 ; Get address of data. 
01¢7 = 330 144 Hee BSBW CHECK_DIF 3; Check for change in data since Last 
3 scan. 
58 QO00030D'EF ODE th4 368 MOVAL PB_STATE_STRNG,R8 ; Point to array of circuit state 

B7D $08 3 strings. 

57 67 3C 2870 65 MOVZWL (R7),R7 3; Get the state. 
57 8000 8F rH B 0 366 BITw #PB$C_VC_FAIL,R7 > Check for VC_FAIL. 
0 8 6 BEQLU 10% ; Branch if nof. : 
57 9% 0 2887 $05 MOVW #4,R7 ; Get index to VC_FAIL string. 
FES9 30 2B8A 8369 10$:  BSBW DISPLAY_STRING : Display the string. 

0180 8F BA 2B8D 70 POPR #*M<R7,RB> 

B91 71 RSB 

B9 1 

B9 37 


m 16 


SHWCLSTR Show Cluster Utili 15-SEP-1984 23:52:08 VAX/VMS Macro v04-00 P 178 
v04 - Circuits class dliptey routines. 4- ath 33:32:08 CLIUTL.SRCJSHWCLSTR.MAR; 1 oa ) 
y +e 
7 FUNCTIONAL DESCRIPTION: 


0180 8F 68 

58 04 00 

57 6C48) = C0 

0190 30 

58 Q0000330°EF ODE 
57 7 9A 

FES9 30 

0180 8F BA 

05 


PRININID 9 PP  MFOOODOODOOOO OOOO 0000 O00 090009 09 69000009 SI 
WR SO ODNAUES WN O ODNAUE WIN SO OONAUE WN O OONOU SE Wit OOo 


PEPER ERE EERE EEE EEE EE PW 


This routine is used to display the state of the remote port. 
CALLING SEQUENCE: 

JSB DISPLAY_RSTATE 
CALLED BY: 

GET_DATA 
INPUTS: 


E macro. 


LD 
block. 


= a offset PBSB_RSTATE from DEFINE_FI 
= Base address of selected path 


R? 
(AP) CPB_IN 
IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 


OUTPUTS: 


Formated ascii string returned in FORMAT _BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
RO = SS$_NORMAL or failed status from FORMAT_DATA. 


DISPLAY_RSTATE: 
PUSHR  #*M<R7,R8> 
MOVL #PB_IN.R8 


ADDL (R12) CR8),R7 
BSBW CHECK_DIF 


MOVAL PB_RSTATE_STRNG,R8& 
MOVZBL (R7),R7 

BSBW DISPLAY STRING 
4149 #*M<R7,R8> 


Set index into call frame to path 
block base address. 

Get the address of the data. 

Check for change in data since Last 
scan. 

Point to array of state descriptors. 

Get the state. 

Format the string. 
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FUNCTIONAL DESCRIPTION: 


This reutine is used to display the path/cable status. The state of 
the cable is first checked and if good the states of the path A and path 
B are checked. The output is in the format: 


se Cable is good. No good paths. 
pie Cable is good. Path A is good. 
°F. Cable is good. Path B is goad. 
ee alee able is good. Paths A and B are gocd. 
CROSSED Cable is bad or crossed. 


CALLING SEQUENCE: 

JSB DISPLAY _CABLE_STATUS 
CALLED BY: 

GET_DATA 
INPUTS: 


R7 = ace offset PBSB_CBL_STS from DEFINE_FIELD macro. 
(AP) CPB_IN = Base address of selected path block. 
IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 


OUTPUTS: 


Formated ascii string returned in FORMAT BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
RO = SS$_NORMAL or failed status from FORMAT_DATA. 


Se Ge Se Ge Ge Ge Ge Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Ge Ge Ge Ge 


ASSUME PBS$B_PO_STS EQ pose col STS+1 
ASSUME PBS$B_P1_STS EQ PBS$B_PO_S1S+1 
DISPLAY_CABLE_STATUS: 
PUSHR al 
MOVL #PB_IN,R ; Set index into call frame to path 
; _block base address. 
ADDL (R12) CR8),R7 ; Get the address of the data. 
BSBW CHECK_DIF 3; Check for change in data since last 
3; _scan. 
MOVAL CB gh STRG,RB 3 Point to cable status strings. 
BITB $#PBSM_COR_CBL,(R7)+ 3 Is the gable status ok? 
BNEQ 10$ 3; Branch if so. 


MOVL #4,R7 Indicate crossed. 


VERECIOM SEHESt AMURELSRSBUREETE aa P| 
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}} CF § BRB 40$ : Skip path state checks. 
D1 108: BSBW CHECK_DIF ; Check for change in path A. 
3 BD4 4 CLAL R9 3 Assume path A and path B bad. 
4 5 B1TB Sogsr_CUR_PS.(R7)* ; Path Ao 
1 BD § BEQL 2 : Branch if not. 
BOB BISL 3: Indicate path A ok. 
BDF 4 : 20$: BSBW  CHECK_DIF : Check for change in path B. 
BE 4 BITB §PBSA_CUR_PS, (R7) ; Path B ok? 
BES 84 BEQL 3 3; Branch if not. 
C 33 4 BISL #2,R 3; Indicate B e- 
ips: MOVL ROR § Set result in R7. 
c 40S: BSBW DISPLAY STRING ; Display the string. 
BA BEF 4 POPR #*°M<R7,RB,RI> 
5 F3 9 RSB 
BFS 849 
F4 49 


nee ca eee ence a 


oe 
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Sh 

FUNCTIONAL DESCRIPTION: 
This routine is used to display the local or remote process names 
associated with a CDT. The process names, if available, are stored 
following each CDT by the snapshot routine. The first 16 bytes being 
the local process name and the next 16 bytes being the remote process 
name. The routine determines which name is to be formatted by the 
offset in R7. 

CALLING SEQUENCE: 
JSB DISPLAY_PROC_NAME 


; CALLED BY: 


GET_DATA 
; INPUTS: 
R7 = SCS offset SCS$T_DST_PROC for local process name or 
SCSST_SRC_PROC for remote process name. From DEFINE_FIELD 


(AP) CCDOT_INJ = Base address of selected CDT. 
; IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 


OUTPUTS: 


Formated ascii string returned in FORMAT_BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


; RETURN STATUS: 


AME WN = OS OOO NOUS WN @§ OC OONAUE WN OOONAUES WN 
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; 7 RO = SSS_NORMAL or failed status from FORMAT_DATA. 
$39 ‘a 
$3) SSUME SCSST_SRC_PROC EQ SCSS$T_DST_PROC+16 
228 ISPLAY_PROC_NAME : 
0180 8F 6B ee PUSHR #*M<R7,R8> 
D4 45 CLRL 3; Assume failure. 
58 dO 278 MOVL #CDT_IN,R8 ; Set index into call frame to CDT 
54 : block base address. 
58 o0000d8C BF 6C48 (C1 208 ADDL3 (R12)CR8),- : Get the address of the process names 
4 #SHCSC_CDT_LENGTH,R8 =: associated with the CD by adding 
9 3 the COT base address to the length 
3; 6 8 x 
57 04 01 § CMPL #SCS$T_DST_PROC ,R7 ; Are we displaying the local process 
> name? 
08 13 9 4 BEQL 10$ : Branch if so. 
57 14 01 555 CMPL #SCSS$T_SRC_PROC,R7 : If not, make sure we are displaying 
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0180 SF 


180 8F 

38 05 
FFFFFFFO 8F 
57 C4 
10 
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z 
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Bh td 
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C 

C 

¢ 0 
C 6 
C 6 
C 3 6 
C 564 
C21 65 
31 te 
3 is 
C21 2 
C21 8570 
C21 8571 
C21 276 
C21 857 
C21 8574 
C21 8575 
C21 278 
C21 857 
C21 8578 
C21 8579 
Cel 8580 
C21 8581 
C21 85 § 
C2i_ 85 
C21 8584 
Cel 8585 
C21 85 § 
C21 85 
C21 8588 
C21 8589 
C21 8590 
C21 8591 
C21 236 
C21 859 
C21 8594 
C21 8595 
Cel 238 
C21 859 
C21 8598 
C21 8599 
C21 ret 
Ce1 8601 
C21 86 
C21 86 
C25 8604 
¢ 605 
C 6 $ 
ce: 
ae 
He BH 
C 61 
(3D 8612 
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; _the remote process name. 
: Error if not. 
; Point to remote process name. 


99$ ; 
ADDL #16,R8 ; 
: Get address of data in R7. 


: MOVL RB,R7 
BSBW © CHECK_DIF 


BSBW  FORMAT_DATA 
998: POPR #*M<R7>RB> 


= 
oO 
aaa 


3 —— for change in data since last 
; scan. 
; Format the string. 


a 
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FUNCTIONAL DESCRIPTION: 
This routine is used to display the state of a connection. 
CALLING SEQUENCE: 
JSB DISPLAY_CON_STATE 
CALLED BY: 
GET_DATA 
INPUTS: 


R7 = SCS offset CDTSW_STATE from DEFINE FIELD macro. 
(AP) CCDT_INJ = Base address of selected CBT. 


IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 


OUTPUTS: 


Formated ascii string returned in FORMAT_BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
RO = SS$_NORMAL or failed status from FORMAT_DATA. 


DISPLAY_CON STATE: 
PUSAR #*M<R7,R8> 
MOVL  #CDT_IN,R8 
ADDL #SHCSL_CDT_DIF,R7 
ADDL (R12) CRB), R7 
BSBU CHECK_DIF 
MOVAL CDT_STATE_STRNG,R8 


Set index into call frame to CDT 
block base address. 

Adjust CDT offset to compensate for 
portion of CDT not stored. 

Get the address of the data. 

Check for change in data since Last 


scan. 
Point to array of connection state 
strings. 
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57 67 35 C30 8613 MOVZWL (R7), ; Get the connection state. 

FDA3 0 2C4 6 BSBW atsPcay —— ; Display the string. 

0180 8F BA gt POPR 


14 
615 | 
C47 8616 RSB 
C48 861 
C48 8618 
} 
| 
| 
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FUNCTIONAL DESCRIPTION: 
This routine is used to display the SCS blocked state. 


C4 : 
C4 3 
C4 : 
See 
C4 @ : 
be § ; CALLING SEQUENCE: 
| COB 8608 JSB —-—dDISPLAY_SCS_STATE 
C4 0 ; CALLED BY: 
| C4 ? ; $ 
C4 3 GET_DATA 
C4 635 ; 
| ce : 3 INPUTS: 
C4 6 § : R7 = SCS offset CDTSW_BLKSTATE from DEFINE_FIELD macro. 
te ° 3 (AP) CCOT_INJ = Base address of selected CDT. 
cé e39 : IMPLICIT INPUTS: 
C4 641; AP = Address of call frame containing the addresses of the data 
te 206 3 structures to be used when data is extracted. 
C48 8644 : OUTPUTS: 
C48 646 : Formated ascii string returned in FORMAT_BUF. 
cee rf 3 Length of formatted ascii string returned in FORMAT_BUF_LEN. 
C48 ets : RETURN STATUS: 
C4 651 ; RO = SS$_NORMAL or failed status from FORMAT_DATA. 
eh HE 
C48 8654 © 
C4 655 DISPLAY_SCS_STATE: 
0180 8F Be C4 $28 PUSAR #*M<R7,R8> 
58 O05 oD C4C 865 MOVL #CDT_IN,R8 ; Set index into call frame to CDT 
C4F 028 ; block base address. 
57 FFFFFFFO BF CO 2C4F 5 ADDL #SHCSL_CDT_DIF ,R7 ; Adjust CDT offset to compensate for 
£26 0 ; portion of CDT not stored. 
57 6C48 0 2C56 61 ADDL (R12)CR8),R7 3; Get the address of the data. 
00E0 0 £30 236 BSBW CHECK_DIF ; Check for change in data since Last 
3 _scan. 
58 QO00003C7"EF ODE 620 os MOVAL CDT_BLKSTATE_STRNG,R&S~ ; gi to array of send blocked state 
3 strings. 
57 M3 C64 ose MOVZWL (R7),R7 : Get the SCS blocked state. 
FD7C C67 866 BSBW DISPLAY A any :; Display the string. 
0180 8F BA cea 66 POPR #*M<R7,R8> 
5 ¢ : ? ; RSB 
| eh ser 
C6OF 8672 -SBTTL - Local port display routines. 
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s+ 
; FUNCTIONAL DESCRIPTION: 


ais routine is used to display the kilobyte values CDTS$L_KBYTSENT, 
iT L.KBYTREQD, and CDTS$L_K " APD. 


CALLING SEQUENCE: 
JSB DISPLAY_KBYTES 
CALLED BY: 
GET_DATA 
INPUTS: 


oO 
nn 


R7 = SCS offset from DEFINE_FIELD macro. 
CAP) COT. IN = Base address of selected CDT. 


IMPLICIT INPUTS: 


AP = Address of call frame containing the addresses of the data 
structures to be used when data is extracted. 


DPD PPP AAPA AAA AA AAA AA AO 
O00 000909690009 0000090908 SI NINN 
PWN O OONAWUES WP $$ O OONOUE 


o 
Oo 
w 


OUTPUTS: 


Formated ascii string returned in FORMAT _B 
Length of formatted ascii string ft aetna : FORMAT_BUF _LEN. 


POOOOOOOIO9VOViOVOAOOIOOIOIOIOIOIOIOIOIWOIOOIOOOOOOOOOOAOAAAOOAOOAOOOOAAOS 
DH «_ 8 Se Se Se Se Ge Ge Ge Se Se Ge Se Se Ss Se Se Se Se Se Ge Se Gs Se Ge Se Gs Sete Se Se Se Se SsSets 


OO OO909 09 0909 SI INP AAA AAA AAA AAA AA AAA AAA AAA AAA AAAAAO 

PrP PE ret ert ame ee a a Bes bs bs bn ns ns a ns Bn ns ns ns ns ns ns Ps Ps bn ts Pn a) 
~“ 
[=] 


7 
704 RETURN STATUS: 
4 RO = SS$_NORMAL or failed status from FORMAT_DATA. 
i i 
709 
710 DISPLAY_KBYTES: 
180 of Be 711 PUSHR #*M<R7,R8> 
D Ne MOVL #COT_ IN, R8 3; Set index into call frame to CDT 
71 3; block base address. 
57 FFFFFFFO 8F CO 714 ADDL #SHCSL_CDT_DIF ,R7 3; Adjust COT offset to compensate for 
715 3 partion of CDT not stored. 
57 6C48 CO ay eye) R8),R7 3; Get the address of the tate. 
67 67 16 OA €EF 71 EXTZV “ 10, ‘ 2 (R7), (R7) : Convert bytes to Kbyt 
00B4 0 At 3 “te for change ine dsta since last 
F8F3 §=6— 30 720 BSBW FORMAT DATA 3 formed the string. 
0180 8F BA 721 POPR #*°M<R7,RB> 
7 ¢ RSB 
7 
724 


w 
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FUNCTIONAL DESCRIPTION: 


re 


This routine is used to display the status of the port. The value 

at offset MBSL_STS for the selected port in the miscellaneous buffer 

is checked for online or offline status. A string is then placed in 

the format buffer which is an ascii representation of the status. 
CALLING SEQUENCE: 

JSB DISPLAY_PORT_STATUS 


CALLED BY: 


e318 
¢ ; 
C ; é 
3 }: | 
c91 3 
c91 3 
C91 $ 
C91 4; 
C91 > 8 
C91 § 3 
34 3 
E31 8089 | 
C91 8740 : 
C91 8741 : GET_DATA 
C91 rt: $ 
34 tz : INPUTS: 
C91 8745 : R7 = Offset MBSL_STS from DEFINE_FIELD macro. 
34 6 ; (AP)CMB_IN] = Base address of the data for selected port in MISC_BUF. 
c9t 748 : IMPLICIT INPUTS: 
C91 8750 ; AP = Address of call frame containing the addresses of the data 
34 a3) : structures to be used when data is extracted. 
cg! 738 : OUTPUTS: 
(91 8755 : Formated ascii string returned in FORMAT_BUF. 
34 738 : Length of formatted ascii string returned in FORMAT_BUF_LEN. 
cgi 138 : RETURN STATUS: 
34 769 3 RO = SS$_NORMAL or failed status from FORMAT_DATA. 
91 166 i-- 
C91 +876 
C91 8764 DISPLAY_PORT_STATUS: 
0180 of Be C91 8765 PUSHR #*M<R7,R8> 
58 , 2 C95 706 MOVL #MB_IN,R8& ; Set index into call frame to base 
34 76 ; _address of port data in MISC_BUF. 
57 6C48 0 2c9 768 ADDL (R12) CR8),R7 3; Get address of data. | 
009° 0 34 168 BSBW CHECK_DIF ; Check for change in data since Last 
3 scan. 
58 oppose te DE 2C9F 8771 MOVAL PORT_STATUS bier, R8 3; Get address of port status strings. | 
: 1 2CA6 10 BBC #ucesy ONLINE, (R §,10$ : Branch if the port is offline. 
8 88 0 7 A ADDB (R8)+,R : Otherwise. point to online status 
: string. 
57 458 00 BCAD 8775 108: MOV. —RBLRT S get adiress of string. 
Face cB 276 BSBW FORMAT_DATA ; Format the string. 
0180 8F BA cB 77 POPR #*M<R7,RE> 
5 2cB ore RSB 
cB 77 
cB 780 


-- LL 
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| fee boas i 
| CBB 8784 ; FUNCTIONAL DESCRIPTION: 
cB 786 : This routine is used to display the device type of the port. The value 
| co BpBe at offset MBSL DEVIYPE is checked for device type of C1780 or C1750 
cB f § 3 The appropriate string is then stored in the format buffer. 
cB £30 ; CALLING SEQUENCE: 
cB 196 : JSB DISPLAY_PORT_TYPE 
cB 734 > CALLED BY: 
a CBB 879 3 GET_DATA 
ie cB 9 : INPUTS: 
CB 00 ; R7 = Offset MBSL_DEVTYPE from DEFINE_FIELD macro. 
cB 33) : (AP)CMB_IN] = Base address of the data for selected port in MISC_BUF. 
C88 03 : IMPLICIT INPUTS: 
CB8 05 ; AP = Address of call frame containing the addresses of the data 
oor 6 3 structures to be used when data is extracted. 
cB 08 : OUTPUTS: 
Hy 10 ; Formated ascii string returned in FORMAT_BUF 
4 He 3 Length of formatted ascii string returned in FORMAT_BUF_LEN. 
cB B18 : RETURN STATUS: 
cB Hf : RO =  SS$_NORMAL or failed status from FORMAT_DATA. 
B i iv 
Bs 19 DISPLAY_PORT_TYPE: 
0180 oF BB cB 0 “PUSHR #°M<R7,R8> 
58 Fak. & cBC 1 MOVL #MB_ IN.R 3; Set index into call frame to base 
CBF § ; _address of port data in MISC_BUF. 
57 6C4 £8 CBF ADOL creencpa 3; Get address o a. 
007 0 et? ¢ BSBW ; anee’ for change in data since last 
58 cooegere" FOE az § MOVAL DEV ve a To : Get waddress of device type strings. 
67 01 ODT. ace HPL ADTS_CI7 i Is the port a C1780? steeeeee 
. Ts wo 8 BEQL 3; Branch B Wee 
5 3 80 2CD ADDB Rg 3 Ptherutee point t gent the next string. 
6 D1 CD 9 CMPL tne 8 50, (R7) : Is the ort ac eeeeeeee 
13 2CD BEQL : $ 3; Branch fo 
0 04 2CDA § CLRL 3 Otherwise ndicate fatture. 
11 2coc BRB 99 .. 3 Any return imedia we 
57 8 oe 4 108: MOVL ; Get address of the string in R7. 
F8 CE 5 BSBW PO RRAT _DATA ; Format the string. 
0180 8F BA CE4 § 99$ POPR #*M<R7>RB> 
5 cee RSB 
cE 8 
| 
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FUNCTIONAL DESCRIPTION: 
This routine is used to ay the loopback sgetus of the 
5°P6°Ys f Che 


he value at offsets PDT STS and POTS$B_P : 1_LOSTS are Checked for 
4 ¢C 


loopback or normal status and converted to an” string as follows: 


Formated ascii string returned in FORMAT_BUF. 
Length of formatted ascii string returned in FORMAT_BUF_LEN. 


RETURN STATUS: 
RO = SSS_NORMAL or failed status from FORMAT_DATA. 


cf 3 
he ; 
45 ; 
44 ; 
re : 
‘3 ; 
rk : “A - B - Loopback tests passed on paths A and B. 
20 ; * . Loopback tests passed on path A. 
31 5 a ” Loopback tests passed on path B. 
6 ; oie, . Loopback tests failed on paths A and B. 
37 3 N/A - Loopback testing is not being done. 
33 : The ascii string is stored in the format buffer. 
33 ; CALLING SEQUENCE: 
33 ; JSB —_— DISPLAY_LOOPBACK_STATUS 
861 ; CALLED BY: 
bes 3 GET_DATA 
865 > INPUTS: 
ae? R7 = Offset PDTSB_PO_LBSTS from DEFINE FIELD macro. 
see 3 (AP) CPDT_IN = Base address of the data for selected port in PDT_BUF. 
s : IMPLICIT INPUTS: 
Le : AP = Address of call frame containing the addresses of the data 
1h : structures to be used when data is extracted. 
873 > OUTPUTS: 
76 ; 
A 3 
8 ; 
a: 
Ai 


00000002 


380 8F 
38 06 DO 
57 00000110 8F 6C48 C1 
57 FFFFFFGC BF CO 


003A 30 


PDTSV_LBDG 
DISPLAY att ee STAT 
MOVL 


DWDODOO-DODODODOOODODODOODOOOODOGOODOOODOVOSGOODDDOODODOODODOOC'ODOOOO0O 


S: 
Pence? R8,RI> 
#PDT_IN, RS ; Set index into call frame to base 
; _address of PDT for this port. 
ADOL3 intent ; Get address of local port status. 
T$W RODORT STS,R7 : 


easels eslesieseslasieslasieslaslasioslasiaslaslesiesiasiasiosioslasiasiaslasiesiesiasieslaslaslaslaslaslasl esis asl es lesa as es esl eles esl al al 


ADDL asic L“PDT_DIF ,R? 
BSBW = CKECK_DIF 


NOUS LIMO 


: sport PDT of iset to compensate for 
$ ortion of PDT not copie 
Check for change in data “since Last 


PBS AMOMOOOOOOOOIOAOOOOAQAOAOAQOOAOAOAQAOAOAQAQAAOAOAOAAOAOAOAOAOAOAOOOAAOAOOOOOOOOOO 


ASSUME PDTS$B_P1 =LB8STS Q PDT$SB_PO_LBSTS+1 


wononoovnn9o 


05 57 2 
an 
iF 

59 

57 00000070 8F 
0025 

87 08 

59 0 
OO1A 

67 0 

59 1 
57 3) 

58 enatens 
0380 8F 


Show Cluster U 
= Local port d 


DWODOOOVOOOOOOOOOOOOOOOOO0OM° 


RNIN 2 3 3 3 3 3 SS ADO O00 


TIO DVM BD WOOWWOS DBD OOUUMNMA SP Nin 
MO OONOUES WN" OVOONAUFS WoO Oo 


WUAWAINRONONOPOPOPOND 3 | = = = BODO OO0O 


Wo 
cvvvVvcoVT VTC CVT VCTVCTVCCTVCVC°CO°T°cT°c0Cc0C0C0"8 


i 


ility 
splay routines. 


wm 
Aad 
se 


10$: 


208: 


—_—-- 


"RSEP=1986 93:20:84 


#PDTS$V_LBDG,R7,5$ 
#4 RY 


20§ 
Ro 


#<PDTSB_PO_LBSTS-- 
PDTSW =bPORT ~51S>,R7 
CHECK_ 

#POTSH_PRV.LBS, (R7)¢ 


#2,R9 

CHECK_DIF 
#POTSM_PRV_LBS, (R7) 
20$ 

#1,R9 

ROR? 

LB’ STAT_STRG,R8 


DISPLAY. STRING 
“M<R7,RB,R9> 
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granche if peeebecs sess enabled. 
Set index to point to "N/A" string. 
Display the string. 

‘os soapooes tests succeeded on 
— address of path A Loopback 


check for change in path A loopback 


path’ A loopback test succeeded? 
Branch if 

Index = inden *@, 

ee ead change in path B loopback 


path 6° loopback test suceeded? 
Branch if s 

Index = index * T. 

Get inacx in R7 for DISPLAY_STRING. 
Point to loopback status strings. 
Convert index to string and format. 
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SHWCLSTR Show ¢ Ut 
iret = CHEC ou 
: ¢ ; -SBTTL <= CHECK_DIF routine. 
5 ; FUNCTIONAL DESCRIPTION: 

0 
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This routine uses the address of the data in 4 to Coteraine which 
buffer the data is to be extracted from. It the uses gh at address 
to determine where the matching data in the serves onding buffer from 
Fhe ereeteus snapshot can be found. The data is then sfecveree and 

f found be is different then a flag is set. The flag is used by 
the GET “DATA routine to determine when to turn on inverse video. 


CALLING SEQUENCE: 
JSB CHECK_DIF 
CALLED BY: 
PLAY PORT_TYPE 
pt AY “CON” STATE 
PLAY_PROC a 
PLA Y “CABLE STAT 
PLAY_RSTATE 
PLAY_CIR_STATE 
LAY 


Y else 


>>> 


DIS 
DIS 
DISPL 
DIS 
DIS 
DIS 
DIS 
DIS 
DIS 
DIS 


INPUTS: 

Address of the data from the most recent snapshot in R7. 
IMPLICIT INPUTS: 

Data from the previous snapshot stored in OLD_VAR_BUF and OLD_FIX_BUF. 
OUTPUTS: 

Flag set in MISC_FLAGS if new data is different from the old data. 
RETURN STATUS: 

None. 
REGISTER USAGE: 
Re RS - Used to calculate the address of the data in the old buffer 
R6 - secetves the number of bytes of data in the field. Used to 

to compare the new data with the o 


R7 - Contains the address of the data.” Used to calculate the 
address of the data in the old snapshot buffer. 


WD00000000000000000 000000 000000000000000 


AAACN MAE RRR RRR REE 


Be Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Gs Fo Se Se Ge Se Sse GeSe Ge Se Sse Sse Se SeSeSsSes 


CHECK_DIF: 
PUSHR #°M<R2,R3,R6> 
CMP R7,#SNAP “BUF. END ; Was the data extracted from the fixed 


WAAA.A ANA AWN AIAN AAAI IW AIWIAA AAAI AWWA AAAI WWI WIAA IAIN IAAI AAAI AIA 
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| 
routine. -MAR; 
CHECK_DIF rout CLIUTL. SREJSHWCLSTR.MAR; 1 (BA) 
D48 8981 ; length buffers. | 
4 fF pe 9 ¢ BLSSU i 3 Branch if so. 
QOOOOOSS"EF 5 D1 204A 89 CMPL R7,CSB_DSCR+4 ; Was the data extracted from the 
DS1 8984 $ spores ee buffer? | 
10 #1 D } 985 BGEQU§ 10$ ; Branch 
52 Q000002B"EF oD 4 ; 2 5 MOVL SB_DSCR+4,R2 ; wee ie edaress of the system block | 
53 QOO003FD'EF D0 2DS5A 89 3 MOVL OLD_SB_DSCR+4,R3 3 Get address of system block buffer 
D61 89 : from previous snapshot. 
$6 11 be} 990 BRB 50$ ; Jump to common code. 
00000038 'EF D1 2063 8991 10$:  CMPL  R7,PB_DSCR+4 : Was the data extracted from the | 
+4 338 3; _cluster syeten block buffer? 
10 1 D6A 899 BGEQU 20% : Branch if n 
52 OO000033'EF oD Me 41 MOVL CSB_OSCR+4,R2 3 eet the address of the cluster system 
3 ock buffer. 
53 O0000040S5'EF D0 2073 899 MOVL $OLD_CSB_DSCR+4,R3 ; Get address of cluster system block 
D7A 899 : buffer from previous snapshot. 
4D 11 2D7A 8998 BRB 50$ 3; Jump to common code. 
GOOO0O4S"EF 57 D1 2d7C 8999 20S: CMPL = R7,, CDT_DSCR*4 ; Was the data extracted from the 
08 000 3; _path block buffer? 
10 1E& 2083 9001 BGEQU 30% 3; Branch not 
52 0000003B'EF 00 44 3008 MOVL PB_DSCR+4,R2 3 wet 8 ad address of the path block | 
53 0000040D'EF 00 D8 9004 MOVL OLD_PB_DSCR+4,R3 ; Get eddress of path block buffer | 
D93 «9005 3; from previous snapshot. 
34 +11 «+209 4444 BRB 50$ 3; Jump to common code. 
56 00000043°EF 00 44; 4 4 30S: MOVL  CDT_DSCR+4,R6 3 Got the sterting address of the 
53 OO00003F ‘EF 3¢ 44 9009 MOVZWL CDT_DSCR,R3 3; Get the length of the CDT buffer. 
56 53 C0 oA anid ADDL R3,R6 : Calculate ending address of CDT 
; buffer. 
56 57 OD! ~ on i§ CMPL R7,R6 3 wtbr butter? extracted from the 
36 1E 2DA9 9014 BGEQU 99% ; Branch if n 
38 00000043'E DO 2D 9015 MOVL COT_DSCR+4,R2 ; Get the asrete of the CDOT buffer. 
5 00000415'E DO 2DB 4} MOVL OLD-COT _DSCR+4, R3 3; Get address of CDT buffer from 
DB? 901 3 previous snapshot. | 
OE 11 2DB9 9018 BRB 50$ 3; Jump to common code. 
52 Q000004B'EF DE 2d 9019 40$: MOVAL FIX_BUF,R2 3; Get the starting address of the 
4 28 ? : fixed length buffers. 
53 QOOO04A3"EF ODE 2DdC 3 ¢ MOVAL OLD_FIX_BUF,R3 ; Get the starting address of the fixed 
4 9 7 : length aut tere from the previous 
3 sna 
52 57 $2 ¢3 a2: 30 5 50$: SUBL3 R2,R7,R2 3 Get the: offset into the buffer where 
454 3 § 3; the data is located. 
53 52 CO edc ADDL R2,R3 : Get the corresponding address of the 
444 9028 ; data from the previous snapshot. 
56 04 AA 4 DDO 9029 MOVZBW FDSB FaTycate). R6 3; Get the number of bytes of raw data. 
63 67 56 ¢ DD4 9030 CMPC R6,(R7), (R3) ; Compare the old data with the new. | 
07 ; DD8 9031 BEQL 9 : Branch if they're the same. 
00000476 EF S - C DDA 9 § BISL ocd INVERSE JMISC. FLAGS; Set the inverse video flag. 
004¢ A 2DE1 9033 99S: — POPR <R2,R5,R6> | 
5 2DE5 9034 RSB 
DE6 9035 
9036 
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04 Description o snapshot buffers. 4-SEP=1 CLIUTL. sae eis SHWCLSTR.MAR; 1 
43 8. -SBTTL Description of snapshot buffers. 
43 rt SNAP _BUF : Start of buffers to be locked. 
DE 4g | ° ¢ececeecn + 
DE 4 ; CURRENT _REPORT: H : Bit 0 set indicates cluster report. 
DE 4 44 : bemoan owed 
DE 45 : 
+94 9 re ;  —t—<“‘“‘—™SOSOSOOCOOO $n CR pomorennseoewesesscoccccoe 
434 2 ;CLASS_SELECT: H USER selected classes for. display i 
DE6 $009 : 
DE6 50; $eweooonn ee eee See eee $oeeocoenn + 
DE6 9051 sLOCSYSID: : ID number of the local systen. 
DE6 O828 3 bw mame moae Goeeoeoceoon}ooeeeeon f}ooeoeeesn}ooccesen}oocececaen 
DE6 905 : 
DE6 B8ee $ Ne eee, ee + 
DE6 9055 :NUM_BUF _DSCR: | # of buffer descriptors in use |} 
DE6 9056 : §uneqceses}osnensces$cannasae}enaoccses 
DE6 905 ; 
DE6 9058 ; j. += $§$-—§ S$ emmmmmmapecescesapoecccccoe}occecces + 
DE6 9059 ;NUM_FREE BUF _DSCR: | # of buffer descriptors available H 
DE6 9060 : jusnssqnnjunencnnbnensenenbenmaawant 
DE6 9061 : 
DE6 2806 rr So) re | 
DE6 906 LOC_SB_ADRS: H Address of local system block H 
DE6 9064 ; St So ee, ce + 
DE6 9065 ; 
DE6 9066 : junteouseefpucsonmovesasameubhakeneat + 
DE6 9067 ;SB_BUF_PNTR: ' Pointer into SB buffer : 
DE6 9068 3 tewoeocoeonfoceeoeeoe}ooeeeece}ocececes + 
DE6 9069 : Senncsne}annennenguenrenneebneminen + 
DE6 9070 ;CSB_BUF_PNTR: H Pointer into CSB but fer H 
DE6 9071: jtcapnen}onmenebeamennanhanihibnne + 
DE6 072 ; Se eet eee + 
DE6 9075 ;PB_BUF_PNTR: ‘ Pointer into PB buffer H 
DE6 9074 : (utdianesdansnasushnasensnnhaiainnd 
DE6 9075 : poeweecoeefoocooeco}soocesoec}ocecccos + 
DE6 9076 ;CDT_BUF_PNTR: : Pointer into CDT butfer : 
DE6 907 $ Oe Oe ee ee + 
DE6 9078 ; 
+) a) 2 a ns a eee ween 
BES $9 ? 3 VAR_BUF _ADRS: taddress of variable length. buffers H 
DE6 9082 : 
i 4 § : Descriptors for the variable length snapshot buffers. 
DE C5 _  : aaeaiamaaacatpaiinainiaaiipeaeaasiniaeitilipiaaiaiaiensl 
444 $ 7SB_DSCR: taentrys i te but fer iLength of buffer i 
DE6 3 3 : “Address of buffer : 
DE6 Gp a ee ee a pa a a a a eo a a Oe a ee + 
DE ? 3 
DE Q $8 Pf mnanpommmamman> 
43 3 3 3CSB_DSCR: thentere in butferiLength of buffer i 
DE6 9094 ; : “aagren of esther H 
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SHUCLSTR Show Cluster Utilit 15=SEP=1984 23:52:08 VAX/VMS Macro v04-00 Page 198 
v04 Snapshot buffers. . 27860-1382 33:32:88 CUTE Rea SHUCES TR .MAR: 1 — (86), 
D -SBTTL Snapshot buffers. 
0000 § -PSECT SNA *DATA.RD, WR? ,NOEXE | 
5 SNAP_BUF : ; Start of buffers to be locked. | 
CURRENT_REPORT: : Indicates which report the user has 
00 44 -BYTE 0 3; selected for display. 
1 CLASS_SELECT: 3 Indicates which classes the user has 
00000000 ° 1 -LONG 0 ; selected for display. iar 
LOCSYSID: : ID b f th e 
90000008 : ‘ma ID number o e local system 
NUM_BUF _DSCR: 3 Numb f buff ipt i ° 
90000000 O08 sett a umber of buffer descriptors in use 
OOF NUM_FREE_BUF _DSCR: 3; Numb f buffer d ipt 
00000000 9008 stone 0 SS eat idiiee ac auits et ae 
01 LOC_SB_ADRS: 3; Add f tem block f l l 
00000000 31 “ee".LONG 0 Be ~ ted peered ene titen acai: 
0 
0 
0 
0 


| 
| 
| 
Pointer into CDT buffer. 
' 
| 


17 SB. BUF _PNTR: 3; Point i & ffer. 
entree Hs ese aut BNTR . ; ial me Did a8 a 
N : PY t 
ee if PB BUF pater . : pbutter. : aaa ce 
00000000 iF LONG 0 -peaiscageel mean meee he gent 
CDT_BUF _NTR: : 
00000000 3 -LONG 0 : 
00000000 00000000 00 SB_DSCR:.QUAD 0 3 System block buffer. 
O2F CSB_DSCR: ; Clust tem block buffer. 
0 00 00000000 F « eS ; uster system block buffer 
00000000 00000000 ¢ PB_DSCR:.QUAD 0 ; Path block buffer. 
O3F CDT_DSCR: 3; Connection descriptor table buffer. 
00000000 00000000 BF -QUAD 0 3 
047 VAR_BUF _ADRS: 3; Copy of the variable buffer address 
00000000 4 -LONG 0 : returned from GET_VM. | 
8 F1X_BUF : ; Start of fixed Length buffers. 
8 CLUB_BUF : :; Buffer for the club. 
000001F 3 -BLKB CLUBSC_LENGTH : 


DUMMY _SB: 3: Fake system block for formative path 
00000253 -BLKB SBSC_LENGTH : blocks without an associated 
: formative system block. 
DUMMY _PB: ; Fake pach block for connections in 
000002A7 -BLKB PBSC_LENGTH ; the listen state. 
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shy 9328 PDT_BUF : 
00000447 st? 9 -BLKB 


MISC_BUF: 
-BLKB 


re 92 SNAP _BUF _END: 

44 ke 4A ; FIX BUF LEN 

00004A 4A 8 SNAP_BUF _LEN 
4A H 


=~ 


000004A3 te : 
4A 
4A 
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SHCSL_PDT_LENGTH*MAXPDT ; Buffer for port information. 


; Buffer for miscellaneous information. 
MISC_BUF _LEN®2 


: End of buffers to be locked. 


=F 1X_BUF 
> =SNAP _BUF 
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y04 Snapshot routines. - 2rSEEITSRS S3:32:8% PANIYES Bacto vO cOO ans1 200 200, 
4A3 7 -SBTTL Snapshot routines. | 
00002DE6 937 “BSECT MAIN-RD.EXE NOURT 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine is used to extract the data from the SCS database and the 
Cl port database. This routine is called whenever the interval timer 
expires or upon completion of parsing and executing a command. 

CALLING SEQUENCE: 


SCMKRNL_S - 
ROUT INE=SNAPSHOT 


CALLED BY: 
DO_ SNAPSHOT 


IMPLICIT IMPUTS: 
Cluster and port data stored in SCS database and CI port database. 


Extracted data stored in snapshot buffers. For details see previous 
section. 


RETURN STATUS: 
SS$_NORMAL or SS$_NOSUCHNODE returned in RO. 


SIDE EFFECTS: 


It should be noted that this routine runs at IPLS$_SCS and calls a 
routine CHECK_QUE that runs at IPL 31. Also both routines and all 

Bae byt tore ysed by the routines are locked in memory during execution 
fr) routine. 


REGISTER USAGE: 


Listed here is a general register usage. Detailed usage is given in 
each subsection. 


Used as destination pointer when storing structures in buffers. 
Used as a temporary register and by MOV('s. 

a temporary register and by MOVC's. 

Used as a temporary register. 

Used to store the address of the first Link in a doubly Linked 


Used as a temporary register and pointer to the base address to 


| 
| 
| 
| 
| 
| 
IMPLICIT OUTPUTS: 
| 
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£6 429 ; store data in MISC_BUF. 
450 ; Ro = Used as a temporary register and to save . £600 of R3 before 
431 ; $ updated to point to next slot in eure 
: 3 R10 - ree. to store the address of the next Link Ta" a doubly Linked 
"4 ¢ 3 - Used as source pointer when storing structures in buffers. 
4 o 
07F8 4 § eENTRY SNAPSHOT,“M<R3, oe pnaaa R8, R9, a bs 
00 €1 4 : BBC dct ssv CLUB, - Branch if display of the club js 
16 00000001 "EF 4 SELECT, 5$ disabled. 
5A 00000000'GF 99 440 MOVL eC USeL CLUB,R10 ; Get address of the clu 
1 44 : Branch if there isn't “club. 
o poo" eF bf 2086 aval CLUB_ BUF ,R3 3; Get address to store the club. 
6A OIA : 2 Bee? MOVC eCLUBSC. LENGTH, (R10),= ; Store club in club buffer. 
50 0000028C ; dO 9445 5$: MOVL #Sss BOSUHNDE - RO ; Assume that there ves A cluster. 
00000000'GF 01 944 CMPL G-3CS86 ONFIG.= ; Any remote SB's know 
00000000 ' 8F 944 #SCS$ ée CP ONT TG : 
9448 Q re wt ERR : If not, exit with error status. 
9449 10$:  DSBINT #IPL$ SCS ; Lock the SCS database. 
00 £0 9450 8 #RPTST_CLSTR,- ; Branch to cluster snapshot routine 
00000000' EF CURRENT RE REPORT = 3 if tt re displaying the cluster 
0281 31 BRW LOCAL_S SRA : 


snapshot routine. 


; Store the information necessary to display the cluster report. This tne tudes 
3; all system blocks, path blocks, and connection descriptors. Formative path 

3; blocks and connections descriptors for connections in the Listen state will 

3; also be stored if the user has elected to see them. 


CLUSTER_SNAP: 
00000013"EF D4 CLRL LOC_SB_ADRS : Clear address of local system block. 
OQOOOOIFF'EF 04 CLRL DUMAY_SB+SBSL_PBFL ; Assume no formative path blocks with 
: formative system blocks. 
00000253°EF 04 CLRL DUMMY _PB ; Assume there are no additional 
3; formative path blocks with 
3 associated system blocks. 


; Store each system block in a singly Linked List in SB buffer. 
: : REGISTER USAGE : 


R3 - Pointer into SB buffer where the system block will be stored. 
3 R9 = Used to save a copy @ of R3 ge, be used after R35 is updated to 
Py re 


point to the next e slot in SB bu 


er 
R10 - ointer to system block in the SCS database. 

SB_SNAP: MOVL $B but fie. R3 : Get address of system block buffer. 
MOVL ONFIG,R10 Get address of first system block. 


E1 


MMMMMMMMMMMMMMMMMMMMMMMMmMMMmMMmMmMnMmMmmMmmmmmmmmmmMmoooovocoovcVTvVlcVTl7C97 


PBB BB BPP BPP BP PPE EEE PMMAINIININININININININININININININ) @ — “QOCO NN NMMMMMmernrnrnirn 


MOM NOOOCCOCOCCOCOCOOCOCOD> & HMMMMMMMMMMMD > ANG DWOANOONOPOAAO 


W000 000000000000000 
LERRLELERERRRRERERERELERERERELLLLLA 


| 
| 
; Stherelae branch to the local 
| 


EVI OS OONAUN SWI 9 OO NAUNE WI OQ OONAOULS Wit — 


696969096909 NINN NINN SNA AAA AAPAAAOMUMIMUNIUIUIUIN 


09009000 D0 
"GF 1) Css 
18 AA e 10$: BBC Bai oeee tt CPSTER mip D(R10) =: Branch if not illegal type or system 
4 $B_f IRST“LOOP : block for UNA. 


2 
sok hod i VEREEIBH SEHE:SY ANTE. SRE mans "0% 8B, 


This code executes if the display of Cluster System Blocks is enabled. 
If there is a CSB associated with the Last Sys em Block stored in the SB 
buffer, then it stores the CSB in the CBS buffer and adjusts SBS$L_CSB to 


point to the CSB. 


INPUTS: 
R3,R9 = Point to SB buffer where last SB was stored. 


REGISTER USAGE: 


RB - Used to point to CSB buffer where a CSB will be stored. 
R - Pointer to last SB stored the SB_BUFFER. 


ow 
b-4- 4-4-4 4-4-4444 444444 F 4 [Jouwm 


SB_SNAP: 


A A DO 2€53 94 MOVL (R10) ,R1 3: Get address of next system block. 
oooooooo'sr SA OBS SEeR 8c89 CAPE RRO aS CS9G0_CONEIG : Any more system blocks? | 
E 4 8 JEQL $8 LOOP_END ; Branc not. 
EA 11 Ee : a3 BRB $ : Otherwise, loop for all system blocks. 
Ee 491 ; The following is shipped on the first pass because the first system block has 
4 ? ‘3 ; no previous system block to Link to. | 
£64 9494 ° 
00000029°EF 867 Fel 495 SB_LOOP:DECW SB_DSCR+2 ; Anymore room left in the buffer? 
A 6a 00 Seer 9499 108: moet a E Bot cadrece of veet sates Shea 
: : Get address n " 
ooooovoorar SAO ae 498 CRPL —«-R10,.#8CS$GQ_CONF.IG 5 Any more systen blocks? 
E7 rH JEQL S$B_LOOP_END 3; Branch if not. 
18 AA 2F- £0 ER T4'4 BBS #67. SBSB_SYSTEMID(R10) .~; Ignore illegal and UNA system blocks. 
AO A3 dO 4 3208 MOVL RS -SBSC_LENGTH(R3) : Link previous system block to this 
: one. 
E87 9504 SB_FIRST LOOP: aia 
59 53 »v0 344 £3 5 AOVL R3,R9 3 Save address where this SB will be 
3 stored. 
63 6A 0060 8F 28 2E8A 3809 MOVC3 #SBSC_LENGTH,(R10),(R3) ; Store system block in SB buffer. 
AO AS 04 3 2208 CLRL -SBSC-LENGTH(RS) ; Assume no more system blocks. 
E93 9510 : Save the address of the local system block. This will be used by the 
E93 9511 ; LISTENER_SNAP routine to Link a dummy path block to the local system block 
34 3216 : if any Listeners are found. 
E93 9514 
QOO0O013S"EF D5 2E935 9515 TSTL LOC_SB_ADRS ; Have we already saved the address of 
E99 B28 3 _the local system block? 
18 12 2E99 951 BNEQ CSB_SNAP 3; Branch if we have. 
18 AD «6D E98 2218 CMPL SB$B_SYSTEMID(R9) ,- : Is this system block for the local 
00000005 "EF E9 3 LOCSYSID 3 system? 
11 12 2EA 520 BNEQ CSB_ SNAP : Branch if not. 
1¢ AD «BT se2EAS) 9521 CMPW SBSB_SYSTEMID*#4(R9),- 3; Must check all six bytes of ID. 
Seoeseer" ss EAB 95 § LOCSYSID+4 3 
7 12 2EAD 95 BNEQ CSB_SNAP : Branch if no match. 
00000013"EF 59 00 ny 33 : MOVL R9,COC_SB_ADRS ; Save address of local system block. 
E 95 $ 
E 95 
ERE $599 | 
BN | 
se | 
Oe | 
E | 
E $ 
E 5 | 
Ee 9340 | 
| 
EB6 98c2 | 
| 
| 


- ares 


sch 


26 on Oe 
408 
5A C 


53 00000018" 


5C AQ 
6A OO0AC 


00000018" EF 


0408 8F 


0688 8F 

C Ag 

53 0000001F ‘EF 
57 OC AA 

57 OC AA 


0c Ad = 553 


5A 57 
5A O6A 
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43 BBC ss #CLS$V_CSB.- ; Skip saving of CSB if MEMBERS cL 
CLASS. SE ECT.PB_SNAP : is disabled. tani 
PUSHR #AMCRB RIOD 
MOVL SBSL_CSB(R9) R10 ; Get the address of the Cluster System 


Block for this system. 
; Branch if no CSB. 
; Get the address to store the CSB in 


BEQL § CSB_SNAP_END ; 
: the CSB buffer. 


MOVL CSB-BUF _PNTR,R3 


MOVL  R3,SBSL_CSB(R9) 
MOVC3 #C$BSC_CENGTH, (R10) ,~ 
R3 


) 
MOVL -CSB_BUF _PNTR 


; Save pointer to CSB in SB. 
; Store the CSB in the CSB buffer. 


; Save address to store next CSB. 
CSB_SNAP_END: 
OPR 


B #*M<R3,R10> 


Store the path blocks in singly Linked Lists in PB buffer. Link each List to 
the associated syates block by saving the address of the first path block 
at offset SBSL_PBFL in the system block. 


Note: This loop does not store formative path blocks. See FORM_PB_SNAP:. 
INPUTS: 


R9 - Address of system block $B buffer that is associated with this 
ath block. (Passed from SB_SNAP routine 
R10 - ddress of system block in SCS database for the last system 
block stored in SB buffer. 


REGISTER USAGE: 


RS Pointer into PB buffer where the path block will be stored. 

R? = Address of Link to first_path block on the system block. 

Rg Used to save a copy of R3 to be used after R5 is updated to 
point to the next free slot in PB buffer. 

R10 - ointer to path block in the SCS database. 


#*M<R3,R7,.R9,R10> 
SBSL_PBFL(ROS ; Assume no paths on this system block. 


OO OO OGOG0 0909 09 09 G9 G9 G9 G9 SI SIN NSS SSID DAD DPA AAD TUITION E™ = > SE 
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MOVL PB_BOF_PNTR,R3 ; Get address of first free slot in 
3; path block buffer. 

MOVAL SBSL_PBFL(R10),R7 3 at pepress.ot forward Link to first 
3; pa ock? 

CMPL SBSL_PBFL(R10) ,R7 : Are there any paths on this system 
; oc 

JEQL Pg -L COP _END : If not, exit this loop. 

MOVL R35, SBSL_PBFL(R9) ; Save address of first path block in 

‘ 3 _associated system block. 

MOVL R7,R10 3 Get ° copy of Link address in R10. 

MOVL (R10) ,R10 3 ot orward Link to the first path 
; ock. 

BRB PB_FIRST_LOOP ; Go save the first path block in 
; PB buffer. 


OO 


WDODODODODODODODOODOODOODODODODODODODODOODDODODOOD0000000000000000 
PAA TAAL AL AL AL AL AD AD AD AD AD AD AD AD AD AD A aaa aaa ASA AA ADA AD AD AD Ab AD AA AM AN AM AM AN AD AL Ah AL val 


5 PB_LOOP: 
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00000039" EF 
SA 6A 
57 SA 
AC AS 53 
59 553 
6A 0054 BF 
AC A 
EO A 
BO A3 
0480 8F 
57 38 
5A 57 
5A 6A 
57 6A 
9% 
0 
£4 
38 Ad = 50 
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CMPL (R10) ,R7 


BEQL = SCS_UT_LP_END 
INCL = 
BRB. © SCS_WAITER_LOOP 


SCS_WT_LP_END: 
MOVL RO, PBSL_WAITOFL(R9) 


PUSPATI 


o 
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any — left in the path block 
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A orvere” link to the (next) path 
Does’ the vorverd tin point back to 


If so, no more path blo 


cks. 
Link previous path block to this one. 


or 
5epy path block to PB buffer. 


Assume no more path blocks. 
T’s on this path block. 


ath block by counting the entries 
ave the count at the same offset in 


; Save. aperese where this path block 


Get the address of the forward Link 
for the first entry in the SCS 


Get forward Link to next entry in the 


Does the saruera Link 


the first forward 


f so, no more SCS sits 
Increase count of SCS nae | + BE 
Loop for all SCS waiters. 


Store the number 
offset PBSL nUAITOFL 


nf 


ers. 


S waiter at 
n the PB. 


DECW PB_DSCR+2 : 
JEQLU ooP END : Bren h ifn 
? MOVL ier >, RT : 
3 5 CMPL = R10, R7 : 
§ 3; first forward | 
96 JEQL pg -L 008 END 3 
3 8 MOVL R3,-PBSC_LENGTH(R3) : 
10 PB_FIRST_LOOP: 
} AOVL R3,R9 3 
1 MOVC3 #PBSC LENGTH (R10), (R3) 
614 CLRL -PBSC_LENGTH 
9619 CLRL =PBSC~ ~CENGTH#PBSL_ corestin3) 
9 1 Ass une) no CD 
361 CLRL = =PBSC_LENGTH+PBSSHCSL _NuA. CDTCRS) 
ty : Get the number of SCS waiters on each 
9620 ; in the queve at offset PBSL_WAITOFL. 
30 1; place of the forward Link (Since it won't be used again) 
+4 § : Fix the port name to be PAZO rather than PAS'’null"’. 
96 5 : INPUTS: 
96 3 : R9 - Address of path block oat was last stored in PB buffer. 
9628 ; (Passed from PB_SNAP routine 
9629 ; R10 - Address of path block — the SCS database for the Last path 
+9 , 3 block stored in PB buffer. 
96 é : REGISTER USAGE: 
36 4; R7 = Address of Link to first entry in SCS wait queue. 
96 f : R10 = Pointer to entry in SCS wait queue. 
36 3 SCS_WAITER_SNAP: 
96 PUSHR #*M<R7,R10> 
sett MOVAL PBS. _WAITQFL(R10), R7 : 
4 : wait queue. 
7 MOVL R7,R10 3; Get a copy in R10. 
45 SCS_WAITER_ LOOP: 
rf MOTL (R10) ,R10 
S wait queue. 


int back to 
tink? 


83 | 
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3 90 2F 657 MOVB #*A/0/,- ; Fix the unit number in the port name 
27 9 Fae $638 PBST_LPORT_NAME+3(R9) : to be “O" instead of NULL.” 
0480 8F BA 966 POPR #*M<R7,R10> 
A 3eet 
A 3886 
9664 ; This routine is used to count the number of connections on a circuit and if 
9665 ; the display of connections is enabled, to store the connection descriptors in 
2e06 CDOT buffer. ALL the CDT’s for connections established over a particular path 
966 are linked together and the first is Linked to the associated path block. 
2988 The message associated with the CDT are also stored in CDT buffer immediately 
669 ; following the CDT. The number of connections on the circuit is stored in 
oes the path block for the associated circuit at offset PBSSHCSL_NUM_PB. 
3058 NOTE: This code does not check for connections that are in the LISTEN state. 
2007 See LISTEN_CDT_SNAP:. 
$67 INPUTS: 
967 R9 = Address of path block last stored in PB buffer 


R10 = Address of path block in SCS database for the Last path block 


oO 
oa 
~ 
w 
Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Se Fe Ge Ge Se Se Se Se 


9679 stored in PB buffer. 

9680 

44 REGISTER USAGE: 

3688 R3 = Pointer into CDOT buffer where the CDT will be stored. 
9684 R4 = Counter for copying or zeroing message. 

9685 R5 = Pointer to message when copying message into CDT buffer. 
9686 R8 = Used to count the number of connections on a given path. 
4 t4 R10 = Pointer to CDT in the SCS database. 

9689 © 


9690 ASSUME SCSS$T_SRC_PROC EQ SCS$T_DST_PROC+16 
9691 ASSUME SCSSB_CON_DAT EQ SCSS$T_SRC_PROC+16 


9693 CDT_SNAP: 
0408 8F 9694 PUSHR #*M<R3,R10> 
58 R R8 Clear counter for number of 


connections 
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m— o 
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53 00000023"EF 00 ry dd MOVL CDT_BUF _PNTR,R3 ; Got agerese of first free slot in 
: uffer. 
5A 34 AA DE 7 9699 MOVAL PBSL_CDTLST(R10),R10 ; Get the address of the first forward 
6B 9700 ; link for the CDOT’s associated with 
68 9701 ; this path block, 
5A 6A 00 68 97 ¢ MOVL (R10) ,R10 3; Are there any CDTs on this path 
6— 97 : _block? 
§ aree 5$: JEQL CDT_SNAP_DONE :; If not go on to next path block. 
58 06 4 af 5 INCL R8 : ingrease count of connections on this 
: circuit. 
00000060 8F 03 7 $707 BITL #CLSSM_CNT!CLSSM_CRD,- ; Is the display of counters or credits 
00000001 "EF 7B 9708 GLASS SELECT 3; _enabled? 
0 4 BNEQ $ : Branch if so. 
4 710 BBC #CLS$V_CON,- ; If the display of connections is also 
1E 00000001 ‘EF 9711 CLASS SELECT 708 ; disabled, then skip storing of COT. 
28 AA A ar CMPW = CDTSW~STATE (R10) ,- : Is the connection in the open state? | 
02 8D 971 #CDTSC_OPEN ; | 
| 
} 
| 


SHWCLSTR 
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0a 00000001" ; 


C 
06 00000001 'EF 
sens 8 


SA 6C AA 
co 
00000041° 4 
SA 6C AA 
4D 
28 AA 
02 
11 
58 
00000001"EF 00000860 = 
dB 
00000001"EF 00001040 


oe 
FFS4 C3 55 


0088 8F 
14 


55 2C.4A 


55 04 AS 
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12 2F 714 BNEQU 
‘6 38 a BBS 
9¢ 9716 
11 2F98 971 BRB 
ET gF9A 9718 108: BBC 
po SFAS 9 0 208: Mov 
11 i u BRB 
00 Stab 9758 308: move 
11 gFAC 972% BRB 
FAE 9 § CDT_LOOP: 
B7 OFAE 97 DECW 
13 gFB4 9728 BEQLU 
Dd gree 97 MOVE 
13 2FBA 9730 BEQL 
Bi grec 9751 CMP 
12 Seo 9788 BNEQU 
D6 2FC2 9734 INCL 
o3 SFta 9F%% BITL 
FES 98? 
FCS 9738 
12 2FCF 9739 BNEQ 
11 2FD1 9740 BRB 
D3 2FD3 9741 108: — BITL 
FDS 974g 
FD4 974 
13 QFDE 9744 BEQL 
D0 2FEO 9745 208:  MOVL 
1S Bivens 
FES 9748 CDT_FIRST_LOOP: 
D4 2FES 9749 cCRL 
FE? 9750 
28 2FE? 9751 mMOVC3 
FEB 979¢ 
FED 975 
FEE 9754 
DO OFEE 9755 MOVL 
FEZ 9796 
13 ge 975 BEQL 
DE Stra 9758 MOVAL 
7 S58 9760 MESSAGE :mova 
F2 OFFB 9761 AOBLSS 
$601 3468 
001 9764 NO_MESSAGE : 
tess 
i ; $76? BRB 
a3 $769 CDT_SNAP_DONE: 
D0 3009 9770 ROVE 


"2oSEp=198¢ 83:24:08 


10$ 
ac 


tA V_OPEN CON 
L 
A 


S$ 
SS_SELECT, 
CLS$V_NOOPEN, CON, - 
LAs SELECT 368 

PB §T(R9) 
Df_FIRST_LOOP 
DTSL_CDTLST(R10) ,R10 


’ 
C 
R SL_COTL 
C IRST_LO 


-DSCR+2 
SNAP _DONE 
SL_CDTLST(R10) ,R10 


N 
W_STATE(R10) = 
OPEN 


ok 4] 
PLN 
a 2B 


<CLS$M_OPEN_CON!- 
CLSSM_CRT!CLSS$M_CRD>,- 
CLASS _SELECT 


CDT_LOOP 
#<CCS$M_NOOPEN_CON!- 
CLSSM_CRD!CLSSA_CRD>,- 
CLASS SELECT 

CDT_LOOP 


R o 
CDT _LENGTH+32>(R3) 


(R3)+ 
#SHCSC_CDT_LENGTH=4,- 
SHC$L_CDT_BEGIN(R105 ,- 
(R3) 
CDTSL_SCSMSG(R10) ,RS 


NO _MESSAGE 
SCS$T_DST_PROC(R5) ,R5 


Sarita 
coft_LdoP 


(R3)+ 
#4,R4,.NO_MESSAGE 
cot_téop 


RB, PBSSHCSL_NUM_CDT(R9) 
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; Branch if not. 
; Branch to Link first CDOT if we're 


displaying open connect fons. 

Otherwise skip first Link. 

Branch if we're not d soleying 
connections in any other state. 
Else, Link the first CDT to the PB. 
Don't Link to previous CDT. 


; Get the forward Link to the next CDT. 
3; And loop. 


Any room left in connections buffer? 
Branch if not. 

Get forward Link to CDT. 

Branch if there are no (more) CDT's. 
Is the connection in the open state? 


Branch if not. 

Increase count of connections on this 
circuit. 

Are we ay ay ba, open connections, 
counters or credits? 


; Branch if so. 
; Otherwise, don't Link CDT. 


Are we displaying connections that 
aren't open, counters, or credits? 


If not, don't Link CDT. 

Link previous CDT to this one. 
Total length of CDT is number of 
bytes stored + 32 byte message. 


Is there a message associated with 
this CDT? 

Branch if not. 

Get the address of the process names 
n the message. ; 

Move nessage 

Loop for b 

Loop for all 


bytes at a time. 
tes. 
DT’s. 


Zero out yhe messages area. 
Loop for 32 b 


tes. 
Loop for all tots. 


Save number of connections on this 
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77 3; _path in the path block. 
00000023"EF 53 00 77 MOVL R3,CDT_BUF _PNTR 3 sove address of next free slot in 
77 ; COT buffer. 
0408 8F BA a4 POPR #*M<R3,R10> 
76 CDT_SNAP_END: 
FEFO 8311 7 BRwW PB_LOOP ; Loop for all path blocks on this 
77 3 system block. 
PB_LOOP_END: 
QOOOOOIF'EF 53 00 = “MOVL R3,PB_BUF _PNTR 3 Seve eddress of next free entry in 
3 Pe 
0688 8F BA POPR —-#*H<R3,R7,R9,R10> rigs 
FE3Bs31 BRW SB_LOOP ; Loop for all system blocks. 
SB_LOOP_END: 
00000017"EF 53 00 MOVL R3,SB_BUF _PNTR $ Coss, eaerens of next free entry in 
3 uffer. 


} 
| 
} 
| 
| 
This routine executes if the display of circuits in states other than open 
is enabled. It scans the SCS directory and checks for local processes with 
connections in the LISTEN state. If an tetening CDT’s are found, they are 
copied into COT buffer and Linked together. The first CDT is Linked to a | 
dummy path block which is in turn Linked to the system block for the local 
system. The local process name is copied from the SCS directory entry and 
stored with the CDT. The remote process name is zero out. 
| 
} 
| 
| 
| 
| 


In the event that there is no eyetes block for the local system block, the 
dummy path block is linked to t 


REGISTER USAGE: 


R3 - Pointer into CDT buffer where the CDT will be stored. 

R4 = Used to determine the address where the Link to the first 
Listening CDT should be stored. This address will either be 
in the dummy path block or in the Last path block on the local 


e dummy system block. 


WA A.AN AAAI A AAAI AIA AAAI AI IPPON 2 2 OO OS | OOD 
SOOGCCCOOSOSOOOS COO SOOOCOCOCSCOC COCO COC COOOOOnvaIWAIWocowslcogo 
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system system block. 
; R5 - Used te copy the local process name from the directory entry to 
R6 = Pointer to SCS connection descriptor List. 
R7 = Pointer to entry in SCS directory. 
R9 = Pointer to dummy path block. 
R10 - Used te convert index from the SCS directory to the address of 
e ‘ 
LISTENER_SNAP: 
oc «EO BBS #CLS$V_NOOPEN_CON,- 3; Execute this code if display of 
03 00000001 'EF CLASS_SELECT,5$ 3 connections in states other than 
3 _open enabled. 
9099 31 BRY COMMON_SNAP 3; Other wise to to common code 
53 00000025'EF 00 ? 5$: MOVL COT_BUF_PNTR,R3 3 Cet oseress to store next CDT in 
; uffer. 
59 00000253°EF ODE 4 MOVAL DUMMY_PB,R9 ; Get address of dummy path block. 


: previous COT's. 
L 


FF54 C3. 53 30$: 


Cc 

o 
Oooo 
>>>> 

MMO 


— 
~~ 
NNO SFOOMMMO]O 


MOVL _—R3,- 
~<SHCSC_CDT_LENGTH*32>(R3) 
40$: CLRL  (R3)¢ 


MOVC3 #SHC$C_CDT_LENGTH-4,- 
SHCSL_CDT_BEGIN(RIO5 ,- 


co 
Ww 
~J 
= 
> 


MOVAL SDIRSB_PROCNAM(R7) ,R5S 
MOVQ (R348 )+ 


—— 
te 
> 
Ww 
=] 
oO 
oo ae 
o 
i*] 
o 
° 


; Save loca process name immediately 
; _following the CDT. 
ero out remote process name. 


MOVG (R 


y+, (R5)+ 
CLRQ (R 


+ 
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4 Ad 046 49 CLRL PBSL_CDTLST(R9) ; Assume there are no Listeners. 
57 00000080" ¢F DE 3 $ MOVAL  G*SCS$GQ_DIRECT,R7 i g eee ef first SCS directory | 
3 war nk. 
56 O0000000'GF 00 1 MOVL G*SCSS$GL_CDL,R6 ; Get the address of the SCS connection 
| § : descriptor List. 
A 9834 SCS_DIR_LOOP: | 
00000041 EF 8 A 5 TSTW COT_DSCR+2 : Is there any room on the CDT buffer? 
1 6 § BEQLU LISTENER. SNAP_END ; Branch if not. 
57 6 dO 6 MOVL (R7),R ; Get the forward Link to first SCS 
6 : erreerery entry. 
00000000'8F 57 01 Be CMPL R7,#SCS$GQ_DIRECT ; Does the Link point back to the 
6C 40 : address of the first Link? 
SF 13 bet 9841 BEQL LISTENER SNAP_END :; If so, no more directory entries. 
SA 2C A7 3C of 9 X: MOVZWL SDIRSL CONIOCR ),R10 : Get index value for this CDT. | 
SA 664A 00 30 984 MOVL (R6)CRTO],R10 : Get address of the CDT. | 
28 AA BI 076 9844 CMPW = CDT$W_STATE(R10),- : Is this CDOT in the “Listen” state? 
01 079 9845 #COTST LISTEN ; 
43 3 O7A 9 r BNEQ SCS_DIR_LOOP ; If not, look at next directory entry. 
34 09 D O7C 984 TSTL PBSC_CDTLST(R9) ; Have we already Linked the first 
O7F 9848 ; _listening CDT to the dummy PB? 
e8 i O7F i} BNEQ 30$ 3; Branch if we have. 
34 a9 5 ) 081 9850 MOVL R3,PBSL_CDTLST(R9) :; Otherwise, Link it now. 
54 00000013"EF DO 3085 9851 MOVL  LOC_SB_ADRS,R4 ; Get the address of the system block 
+t 9 26 ; _for the local system. 
07 12 308C 985 BNEQ 5$ ; Branch if there is a system block for 
O8E 9854 ; _the local system. | 
54 QOOOOIFS'EF ODE 44 9855 MOVAL DUMMY_SB,R4 ; Otherwise, get the address of the | 
095 9 2$ 3 Cay system block. 
54 OC AS DE 3095 9857 5$: MOVAL SBSL_PBFL(R4),R4 ; Get the address of the Link to the 
099 + th} : first path block on this system 
099 985 3 lock. | 
64 D5 3099 9860 TSTL (R4) 3; Are there ony path blocks on this 
098 9861 3; system block? 
07 «#13 #3098 9 ¢ BEQL 20$ : If not, link the dummy path block 
09D 986 3 Sirescty to the system block. 
54 64 OD 9D 9864 10S: MOVL (R4) ,R4 ; Get the Link to the next path block. 
64 OD ag 9865 TSTL (R4) : Is this the Last path block? 
F9 1 A2 9 BNEQ 10$ 3 Loop of not. 
64 59 »@ OA4 208: MOVL R9, (R4) ; Link the dummy PB to the Last path 
OA7 ; _block on this system block. 
0s 1 OA7 BRB 40$ 3; Don't Link Listening CDT to any | 
; 
e 
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roe 8 


83 rs C 5 CLRQ (R3)¢ 3; ALL 16 bytes... 
00000041'"EF 8 C § DECW COT_DSCR+2 :; Count down the number of entries that 
cB ; will fit in the CDT buffer. 
JiR, ; Loop for a rectory entries. 
8 11 $8 BRB SCS_DIR_LOOP L f Ll di tri 
a) LISTENER_SNAP_END: 
00000023'EF 53 00 cP $1 MOVL ~ R3,CDT_BUF_PNTR ; Save address to store next CDT. 
Roe 38 COMMON_SNAP: 
OA €0 D4 94 BBS #CLS$V_NOOPEN_CIR,- : Continue with the following code 
LASS. * 3 we're displaying formative paths. 
00000001 ‘EF +4 +1 ft $S_SELECT if we're displaying f i h 
N ¥ : Otherwise finish up. 
OF 31 oc 38 BRW SNAPSRAOT_END Oth i finish 
at 
ODF 9900 ; This code is te ty executed for the local report. It is also executed for 
ODF 9901 ; the cluster report if circuits in states other than open are being displayed. 
Ree 444 3; It scans the device List looking for PAAO or PABO to determine what porte are 
DF 9905 ; on the local system so that the associated DDBs, UCBs, and PDTs can be 
per 44 3; located. 
por 4.44: 3; REGISTER USAGE: 
ODF 9908 ; R3 = Address in PDT_BUF where the PDT will be stored. 
ODF 9909 ; R8 = Pointer into MISC_BUF where miscellaneous information for the 
ODF 9910 ; port will be stored. Data for PAAO starts at MISC_BUF. Data 
ODF 9911 ; for PABO starts at MISC_BUF+MISC_BUF_LEN. 
ODF 44 F : R10 - Used as pointer to DDB's. 
SOE 9a1a | 
ODF 9915 LOCAL_SNAP: 
53 QOO002A7"EF OD ODF 9916 MOVAL PDT_BUF,R3 3; Get address of PDT buffer. 
5A Q0000000°GF oD 0E6 9917 MOVL G*1OCSGL_DEVLIST,R10 3; Get address of device List. 
58 Q0000419°EF DE bee Sa18 MOVAL MISC_BUF=MISC_BUF_LEN,R8; Initialize pointer to MISC_BUF. 
OF4 9920 DDB_LOOP: 
5A 6A DO 30F4& 9921 MOVL (R10) ,R10 ; Get address of DDB. 
03 1¢ a4 99 § BNEQ 10$ : Continue if more DDB's. 
01D 3 F9 99 BRw SNAPSHOT_END : Otherwise, done if no more DDBs. 
41415003 8F 14 AA D4 OFC 9 4 10$: CPL DBST_NAME(R10),#PAAC Is this bbe for PAAQ? 
3; Branc so. 
42415003 8F 14 AA D1 136 99 § CMPL DDBST_NAME (R10) , #PABC : Is this DDB for PABO? 
ge is 1 99 BNEQ L 3: If not continue looking. 
58 2 ¢ 11 4 3 208: ADDL #MiSC_BUF_LEN,R8 ; Get address to store data for PAZO in 
11 3; miscellaneous buffer. 
00 €0 3113 9930 BBS #RPTSV_CLSTR,- : Branch to the formative path block 
00000000" EF 115 9931 CURRENT_REPORT,- t snapshot routine if we are displaying 
3 11A § FORM_ NAP ; the cluster report. 
0088 )3=31—«311B «(99 BRW PORT_ SNAP ; Otherwise, branch to the port 
11E 9934 3 snapshot routine. 
He Bu 
11E 99 $ : This code executes only if the cluster reper’ is selected and Ctaploy of 
11E 3 : circuits in states other than open is enabled. This routine stores formative 
11E 9939 ; path blocks in PB buffer. It checks for a formative system block associated 
VE Bey 3 with the formative path block. 
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If there is no formative system block associated with the formative path 
block then it Links the formative path block to a dummy system block. 


the syytee blocks stored in SB buffer. If there is no match, the 
(Snked ’ 


If there is a match, then the incarnation number of the formative system 
block is checked against the incarnation number of the system block stored in 
SB buffer. If the incarnation numbers are the same, then the formative path 
block is Linked to the system block in SB buffer. If the ncarnation numbers 
are different, then the formative system block is stored in SB buffer and the 
formative path block is Linked to it. 


INPUTS: 
R10 = Points to base address of DDB. 
REGISTER USAGE: 


FRIESE 


PUPPIES 


Oowoc 


Pe Se Se Ge Ge Se Ge Ge Ss Ge Se Ge Se Ge Se Se Se Se Se Se Se Ss He Se Se Se Se Ss Se Sse Se Se Se Sete Sets 


— 4 — 2 2 2 1s ts 
bt 8 4 st ss tt 


DDOOWOOS SF WIM FS OQOMMMMMMMMMMMMMmMmMmMmMmMmMmMmmmmmmmmmmmmmmmmmmemnmn 
oO 
Oo 
~ 


NOUS "OOOO 


000000000 
AAA As 


9961 


64 R3 = Used to scan the system blocks in SB buffer for a systes whose 
9965 ID matches the formative syeten block. If found points to 
996 the system block. If not found points to dumm systes block. 
996 - Used to find the address iast formative path block on the 


formative system block or the dummy system block. 
- Used as pointer into PB buffer where the formative path block 
is to be stored 


SSS Sesser sess nstesenl 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1 
1 9971 R7 = Address of forward Link to first formative path block on the 
11E 997 R9 = Address of formative system block if available. 
1% p44 R10 = Used to get address of UCB from DDB and address of PDT from 
~ ointer to formative pat ock. 
11E 997 Poi f i h block 
11E 997 
HE 997 
11 4444 FORM_PB_SNAP: 
OA €1 3I1E 9981 BBC #CLS$V_NOOPEN_CIR,- : If display of circuits in states 
CE 00000001 ‘EF 1 a3 t] CLASS_SELECT,BDB_LOOP =; other than open is disabled then 
1 99 ; continue scanning for DDB's. 
O70C 8F 1 4 PUSHR #*M<R2,R3,R8,R9,R10> 
SA 04 AA dO 31 985 MOVL poBst _ucBiRid) .R19 ; Get address of UCBO for this port. 
5A 0084 CA 0D 1 $ MOVL UCBSL_PDT(R10),R1 :; Get address of PDT for this port. 
1 JEQL FORM DONE : Branch if no PDT. | 
57 0174 CA ODE 31 3 MOVAL PDT$Q_FORMPB(R10),R7 ; Get adress of the forward Link for 
: 3 sh first formative path block on 
3 s 
5A 57 00 31 MOVL R7,R10 3; Get copy in R10. 
14 § FORM_PB_LOOP: 
34 GA DO 314 9 MOVL (R10) ,R10 ; Get address of formative path block. 
7 SA D1 314 94 CMPL R10,R? ; Does the forward Link point to the | 
14 95 : address of the first link? 
14 38 JEQL FORM_PB_DONE : If so, no (more) formative path 
14 443 : blocks. Go check for another port. 
59 30 AA 00 314 998 MOVL PBSL_SBLINK(R10) ,R9 ; Get formative system block Link. | 
| 
| 
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4A 13 314F 9999 BEQL 40$ :; Branch if there is no system block 
151 1 9 3; _associated with this path block. 
58 00000047"EF 00 31 } 1 MOVL VAR_BUF_ADRS,R8 ; Point to the system block buffer. | 
18 ae Di 3158 1 § 10$: CMPL SBSB_SVSTEMID (RB) .~ 3; Does the system ID of the formative 
18 A 158 1 SBSB_SYSTEMID(R9) ; syetes block match the ID of any of | 
15D 10004 3 the system blocks stored in SB | 
15D 10005 ; buffer? 
15 1 15D 1 $ BNEQ 208 3; Branch if not. 
1C ~ 8 15F 100 CMPW SBSB_SYSTEMID+4(R8),- ; Check all six bytes. 
1C A ie 1 3 Sx Enne re teRsOee thy? : 
0 12 3164 1 BNEQ $ 3; Branch if no match. 
sc Ki D1 196 1 \9 CMPL Fare eu INE ARN (RS) @ 3; Does the boot time in the formative 
CA 169 1001 SBS$Q_SWINCARN(R9) 3;  =system block match the system block 
168 1 \§ ; _ we've found? 
of 12 3168 1001 BNEQ 30$ 3; Branch if not. 
3 A D1 198 1 Bie CMPL SBSQ_SWINCARN+4 (R8) ,= 3 Check the full boot time. 
AS 170 10015 -  eaecarattacanit 3 
2— 13 i : 818 BEQL 3; Branch if the boot time matches. 
58 68 00 3174 10018 20S: MOVL SBSL_FLINK(R8) ,R8 : Get address of next pyoten block. 
DF 12 3177 10019 BNEQ 10$ ; Loop for all system blocks in SB 
179 10020 3; buffer. 
1 1883 
179 100 f : Save the formative system block if it's ID doesn't match any of the system 
1 \ | : : blocks in SB buffer or if the ID matches, but the incarnation number doesn't. 
179 10026 ° 
53 00000017"EF 00 4 : ; 30$: MOVL SB_BUF _PNTR,R3 : oe pderece in SB buffer to store 
AO AS 53 00 : p 190 4 MOVL R3,-SBSC_LENGTH(R3) : Link previous system block to this 
58 53 00 3184 10031 MOVL R3,R8 : Save the address where this system 
187 1 ; § 3; block will be stored. 
63 69 0060 8F 28 3187 1 MOVCS #SBSC_LENGTH,(R9),(R3) ; Save the system block in SB buffer. 
00000017"EF 53 00 130 ' 0 3 MOVL R3,SB_BUF _PNTR : Saye peerese to store next system 
68 D4 \3e ! § CLRL (R8) 3 Indicate that this is the last system 
OC AB 4 198 1 3 CLRL SBSL_PBFL(R8) : Indicate that there are no path 
199 1 : blocks on this system block. 
07 11 3199 10040 BRB 50$ 3; Jump to common code. 
58 OQOO001FS°EF ODE 1R3 \ rt 40$: MOVAL DUMMY_SB,R8 : Set the address of the fake system 
58 OC AB DE 3SIA2 1 rk} 50$: MOVAL SBSL_PBFL(R8),R8 : Get address of first forward Link to 
\A : rf 3 che ath blocks on this system | 
3 ock. 
68 05 i ' rt] 60$ TSTL (R8) : 5 Te the Last formative path | 
0S 13 31481 4g BEQL 708 : Branch if so. 
58 68 D0 3I1AA 1004 MOVL (R8),R8 ; Get Link to next formative PB. 
F 11 31AD 10050 BRB ; Loop till last FORM_PB is found. 
68 OO00001F"EF 00 fa ! 1 70$ MOVL PB_BUF _PNTR, (RB) 3 Lin ophe, new formative path block 
53 68 00 188 ' § MOVL (RB) ,R3 > Ge address where the formative PB | 
- WwW | 
63 6A 0054 8F 28 3189 10055 MOVC3 #PBSC_LENGTH,(R10),(R3) ; Save the formative PB in PB buffer. 
} 
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AC AS D4 31BF 1 g CLRL = = PBSC_LENGTH(R3) ; Indicate that the formative PB is | 
1C2 1 : now the last path block on this 
1€2 1 : system block. | 
EO AS =D4 «(31C2 1 CLAL -PBSC_LENGTH+PBSL_ corestin3) 
1€3 1006 Zer onthe Link to any connections. | 
BO AS 04 «(315 1 CLRL =PBSC_LENGTH+PBSSHCSL Nuh, CDT CRS) | 
1¢8 1 § ; Zero the number of connections on the 
1¢8 1 : formative path bloc 
QOOOOOIF'EF 53 00 ite ! : MOVL R3,PB_BUF_PNTR : Save the address to. store the next 
FF6E 31 \ce ! és BRW FORM_PB_LOOP : Loop for all formative path blocks. 
1D2 1 8 FORM_PB_DONE : 
O70C 8F 1D2 1 POPR #*M<R2,R3,R8,R9,R10> 
FFIB 1 19 } oy BRW DDB_LOOP ; Go check for another port. 
109 10072 ; 
109 1 878 : This code executes only if the local port report in selected. It stores 
109 10074 ; pisces lence S$ data about the port and data from the interlocked queues in 
109 1 Be 3; MISC_BUF. it stores the PDT's in PDT_BUF. 
109 19077 : INPUTS: 
1D9 19078 : R10 = Points to base address of DDB. 
1D9 10080 ; R8 - Pointer into MISC_BUF where miscellaneous information for the 
199 H 13 port will be stored. 
109 0 5 > REGISTER USAGE: 
109 i 5; R7 = Meee to get address of UCB from DDB and address of PDT from 
109 1 6 : ; RB = Pointer to MISC_BUF. 
109 1 3 3 R10 - Pointer to DDB.” 
1b9 19090 ° 
1D9 10091 PORT_SNAP: 
1b9 10098 
109 1 bee : Convert the port name for this port from ‘'PAZ'' to ‘'PAZ0"’ and save in 
103 ! R 3; MISC_BUF. 
14 AA F8 BF 78 4 4 ' 3 * ASHL #-8, 3 ooest “Ane nh 9).° : Opt the port name shifted left one 
30000000 $F c8 1f i 9 BISL ek ng mee ; AND in a zero at the end of the name. 
14 D4 168 101 CLAL MBSL- PB(R8) : Initialize count * tornat ive path 
1€9 101 § ; _blocks on tis por (In MISC_BUF) 
57 046 AA 00 31E9 101 MOVL pes. “cacao R7 : Get address of UCBO , this port. 
41 A? 9A 31ED 10104 MOVZBL UCBSB~DEVTYPE(R7),- ; Get the device type for nle’ane’® 
08 A 1FO 10105 mast DEV TYPECRE) : _from UCBO and save in 
A 3c 6351F2 101 $ MOVZWL UCBSE@_STS(R7),- 3; Get device status for this Bort 
C ag 1F5 101 west as! $(R8) ; _from UCBO and save in MISC_BUF 
0080 C DO 3S1F?7 101 3 MOVL ee ERTCNT(R7),= 3; Get  ereent retry count, maximum 
3 A8& 4 ! ' 6 MBS$B_ERTCNT(R8) 3 ferry cout ane n Rise. But count from | 
3 ve 
7 0 7 0 3SiFD 1011 MOVL UCBSL_PDT(R7) .R7 3; Get address of spor or’this port. 
. siete , +03 10112 JEQL FREE _BUF_SNAP 3; Branch if no P 
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Count the number of formative circuits and save in MISC_BUF. 
Save the port number in M 

Copy a portion of the Por in PDT “BUF. 

Count the number of pool waiters” and store in MISC_BUF. 


INPUTS: 
RS - Pointer into PDT_BUF where PDT is to be stored. 
R? = Base address of PDT. 
R8 - Base address to store data for this port in MISC_BUF. 


REGISTER USAGE: 


a ed ad td 


BE WIWIWIIII IAIIIROROROPRROPURURUD 2 


bt 4 2 8 2 te 


1 
1 
1 
1 
1 
1 
; 
1 R5 = Pointer to formative path blocks. 
1 R5 = Pointer to entries in pool waiter queue. 
1 R6 = Address of Link to first pokey de etn block on the PDT. 
1 - Address of sgoppeck data gree buf 
1 - Pointer to first address in PDT to “be saved in PDT_BUF. 
1 - Address of Link ce first pool waiter queue entry. 
: R8 = Pointer to MISC_BUF. 
56 0174 C7 DE 1 MOVAL PDTSQ_FORMPB(R7) ,R6 ; Get address of the forward Link for 
} 3 she first formative path block on 
3 s 
55 56 oO ; MOVL R6,R5 ; Get copy in RS. 
41 PORT_FORM_PB_LOOP: 
55 65 00 1 MOVL (R5) RS Get address of formative path block. 
56 55 O01 1 CHPL R5,R6 Does the roruere, btan 2 er to the 
1 gcerese of the first 


BEQL PORT_FORM_PB_LOOP_END 


INCL MBSL_FORM_PB(R8) 
BRB PORT_FORM_PB_LOOP 


PORT_FORM_ PB_LOOP_END: 
~ “MOvVL™  PBTSL_ -LBDG(R7) ,R6 


no (more) formative path 
bl ssche. Go check for another port. 
Increase count of formative circuits. 
Loop for all formative paths. 


56 0184 C7 00 Opt address of loopback datagram 


FUSS USUI EBS BS BN SS 


DEI 29 OS OODND ANEW OOO NAME WI SO OD NOAU EWN OO OONOAUE WN OWOONOULW 


oc A6 9A MOVZBL PPD$B_PORT(R6),- ; Save the sport number of this port in 
A cies PORT_NUM(R8) : MISC 
56 0084 of MOVA ue rer 7ee cinta?) oR6 ; Get address to start copy ng POT. 
9900 oF MOVC _LENGTH,= 3; Get a ort on of the PD ° 
55 Boac C DE MOVAL CR a ar) as : Get address of of pool waiter queue 
: forward 
5 55 00 MOVL R5,R6 : Save . opy fa RS. 
18 AB OD CLRL = MBSL_PL_WAITERS(R8) ; Inigtat ze number of pool waiters on 
. port 


POOL WAITER LOOP: 
wove (RS) RS 3; Get first forward Link. 
CMPL R ; Any (more) pool waiters? 
BEOL POOL _WAITER Lo oP END : Branch if 
INCL MBSL-PL_WAITERS(R8) 3 Inerenent number of pool waiters on 
3 $ port. 


NEM PFAOAA DAD MDA BOOM DB NUNMINI FMMBAOO NNN SSS SSS SSNS SSNS 


=" 
_ 
FHP MUIMIWMIWMIGMIDINININID) 4 2 QOD CCCCOOOOCOCOCCO 
a a a a ee ee ed ed ed ed ed 


SOQoooooooooooooooooooocKod: 
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ie. BRB POOL .WAITER_LOOP ; Loop till all pool waiters found. 
POOL _WAITER_LOOP_END: 


14 
87) 


= 
—~ 


BNE AO ODA NE WIN 9 OD NAVE WIN SO ONAN WIN SO ODNAULS WIN O OONAOULS WIN O 
o 
= 
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Count the number of entries in the interlocked queue and store in MISC_BUF. 
INPUTS: 


Re - Pointer into MISC_BUF to store data for the port. 
R?7 = Pointer to PDT. 


REGISTER USAGE: 
Pointer to queue to be counted. 
Pointer to 


. DT. 
R8 - Pointer to MISC_BUF. 
- Count of entries returned form CHECK_QUE routine. 


INTERLOCK SNAP: 
56 0100 44 DE MOVAL 


4 

wot 

008s 0 

1c AB «59S BO 
56 0108 C7 ~OE 


PDT$Q_DFREEQ(R7) ,R6 Get address of datagram free queue. 
Ro Initialize count of entries in que. 
Get the number of entries. 

Convert result to ascii string. 


Save number of free datagrams on this 


CHECK_QUE 
BSBW 46s CNVRT ASCII 
MOVW R9,MBSW_DG_FREE(R8) 
MOVAL PDTS$Q_MFREEQ(R7) ,R6 


Lee 


port. 
Get the address of the message free 


PAEQEMAMUIUIUI ES BBE PEP PPP LLLP LLP ELLOS 


ee wVMwMDWOOO DOOL HMO BMD PRL HI MMS PAOWOM OOOOOVOOOVOOo0oooononowwvooon 


BOBOOOO000 0000 OO 000009090969 0969 696909 SI NININI NING 


queue. 
59 4 Initialize count of entries in que. 
0090 0 BSBW CHECK_QUE Get the number of entries. 
ue 10 BSB CNVRT_ASCII Convert result to ascii string. 
16 AB OS B0 MOVW RO, MBSW_MSG_FREE(R8) Save number of free messages on 
S port. 
56 O1E0 C7 ODE MOVAL PDT$Q_COMQL(R7) ,R6 Get address of low priority command 
ueue. 
59 4 CLRL R9 Initialize count of entries in que. 
0080 0 BSBW CHECK_QUE Get the number of entries in the low 
priority command queue. 
56 O168 C7 ODE MOVAL PDT$Q_COMQH(R7) ,R6 Get the address of the high priority 
command queue. 
79 ~=—:10 BSB CHECK_QUE Get the number of entries in che igh 
° 


pr lor tty command queue and ad 

otal number of qeanande queued. 

Get the address of command queue 2. 
Get the number of entries in command 
queue 2 and add to total number of 
commands e 

Get the address of command queue 3. 
Get the_number of entries in command 
queue 3 and add to total number of 
commands qued. 

Convert result to ascii string. 

Save the total number of command 
queue on this port. 

Get the address of the response 
queue. 


56 = O1FO cr oF MOVAL PDT$Q_COMQ2(R7) ,R6 
2 BSB CHECK QUE 


56 © O1F8 C7 oF MOVAL PDT$Q_COMQ3(R7) ,R6 
68 U 


BSB. CHECK“QUE 


BSB. ss CNVRT_ASCII 
MOVW R9,MBSW_CMDS_QUED(R8) 


MOVAL PDTS$Q_RSPQ(R7) ,R6 


$8 1 
20 a8 59 8B 
56 0200 C7? ODE 


ame ee ae a ee we ee el me ee ed ad a a 8 od dt 3 SS 2 SS td 8 ot 2 2 = ss 


RIPIPIPINOPIPIPIPIPYPIPYUPIPUPIPYPI PDN PI PIPPI PIPPI a a at at at ot SS SS SS SS SS SS SS 


ROROPONNONOND 2 2 SM OOOCO 


sch 


22 AB 35 


57 00000000' GF 
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ASCII 
MOVW R9,MBSW_RSPS_QUED(R8) ; Save the number of responses queued 


7 CLRL R9 : Initialize count of entries in que. 
BSB CHECK_QUE ; Get the number of entries in the 
3 response queue. 
BSB CNVRT 3; Convert result to ascii string. 


on this port. 


Count the number of free buffer descriptors and save in NUM_FREE BUF _DSCR. 
Calculate the number of buffer descriptors in use and save Tn NUAM_BUF_DSCR. 


REGISTER USAGE: 


Se Ge Ge Ge Sse Ge Ge Ge Se 


Rg - Counter for number of free buffer descriptors. 
R7 = Pointer to free buffer descriptors. 


4 
i 
0 
; 
4 FREE_BUF_SNAP: 
5 AOVL G*SCSS$GL_BDT,R7 : Get the address of the buffer 
8 ; descriptor table header. 

ADDL  #CIBDTSL_FREEBD-CIBDSL_LINK.R7 
8 : Get the Link to the first buffer 

3 descriptor. 

9 CLRL R6 3 Assume no free buffer descriptors. 
§ LOOP: 
; AOVL = CIBDSL_LINK(R7) ,R7 
0 
; 
4 


BEQL FREE _BUF _END 
INCL R6 


BRB FREE _BUF _LOOP 
FREE _BUF END: 
MOVL 


FREE_BUF 
Are there any (more) free buffer 
descriptors? 
Branch if not. 
Increase count of free buffer 
descriptors for this port. 
Loop for all free buffer descriptors. 


Save number of free buffer 
descriptors. 

Get the total number of buffer 
descriptors available. 

Save the number of buffer descriptors 


R6,NUM_FREE_BUF_DSCR 
MOVZWL G*SCS$GW_BDTCNT.R7 

5 SUBL3 R6,R7,NUM_BUF_DSCR 

§ BRW — DDB_LOOP 

PORT_SNAP_END: 


SNAPSHOT _END: 
7? ROVL 


74 SNAPSHOT _ERR: 
ae 
i 


n use. 
Loop for all ports. 


#SS$_NORMAL ,RO Indicate success. 


Lower IPL. 
And return. 
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FUNCTIONAL DESCRIPTION: 
This routine converts the number of entries found in an interlock queue 
to an ascii string. If the number of entries found exceeds QUEVE_LIMIT 
then a carrot ‘'>’’ is placed before the count when it is output. 
CALLING SEQUENCE: 
JSB CNVRT_ASCII 
cALLED BY: 
INTERLOCK_ SNAP 
INPUTS: 
Number of entries in the queue in R9. 
OUTPUTS: 
Ascii string returned in R9. 
RETURN STATUS: 


o Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Sse Se Se Sete Sete 


None. 
NVRT_ASCII: 
59 O38 91 CMPB #QUE_LIMIT,R9 Does the result equal the Limit. 
38 13 BEQL 1 Branch if so. 
59 3 . Ht: ASHL #8,R9,RO Get the count into the second byte. 
59 020 8F A ADDW #*h/ 6/,R9 Convert second byte to ascii and make 


the first byte a blank. 
ranch toc nm code. 
becomes >2. 
Get the count into the second byte. 
Convert second byte to ascii and make 
the first byte a ‘> 


BRB 208 


R9 
ASHL  #8,R9,R9 
ADDW =_s#*AA/>0/,,R9 


os 
So 
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FUNCTIONAL DESCRIPTION: 
This routine is used to count the number of entries in an interlocke 
ueue. The number of entries found is ceturnes in R9. Note that R 
s not cleared by this routine so that R9 can be used to count the 
total number of entries in several queves if this routine is called 
repeatedly. Since this routine executes at IPL 31 the maximum number 
of entries counted by this routine has been Limited to 3. 
; CALLING SEQUENCE: 
JSB CHECK QUE 
CALLED BY: 
INTERLOCK_SNAP 
INPUTS: 
R6 = Address of queue for which entries are to be counted. 
OUTPUTS: 
The number of entries in the queue is added to R9. 


IMPLICIT OUTPUTS: 


RS scratched. 
RETURN STATUS: 


NORMAL or SS$_INTERLOCK status returned in RO. 
REGISTER USAGE: 


NEI = OE OO NIA NE WN OS ODODNAUNE WIN | 9 OOONAULS WO OONAOUE 


Ss Des Pee Ds De is De Be es Di Bi Be Di Be Re i De Be es De Da Ds Ds Be es De Be es De De i Be es De BB es es | 


~" 
w>> >> PPP PPE NS ST OT OT OY A Oe oe oe Pee oe Oe ee eo PO eo OP oe ee oe oe Oe Oe 


ts 
Clear interloc bit in first 
self-relative offset. 


54 65 O01 CB BICLS #1, (R5),R4 


R1 - Interlock retry counter. 
R4 = Offset to next queue entry. 
R5 = Address of queue entry. 
R6 = Address of first entry in the queue. 
RO - Counter for number of entries in the queue. 
CHECK_QUE: 
50 Q000038C 8F 00 MOVL £588_ INTERLOCK RO 3 Assume interlock failure. 
1 D4 CLRAL R 3: Initialize interlock retry er. 
55 6 00 VL R6,R5 3 Save copy of queue address in R5. 
DSBINT 3; Disable inter 


WAS_LOCKED: 
AOBLSS G*EXESGL_LOCKRTRY,R1,- 
TRY_LOCK 


nd dd OOO AOA A OUI Ee Be 
PN Pn ae 8 

i 

: 


02 51 00000000'GF F2 Wry to lock again if we still have 


ee 
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1037 BRB LOCK_FAIL Otherwise, return with failure. 
TRY_LOCK: 
BBSSI #0, (R6),WAS_LOCKED ; Try to lock the queue. | 
LOOP: MOVAB | A aad ate Get forward Link to next entry. 
CMPL R5,R bogs his Link point back to the 
first Link? 
BEQL Branch if it does. 


Get next relative offset. 
Increment number of entries and 


MOVL (R5) RS 
AOBLSS #QUE_LIMIT,R9,LOOP 
loop if Limit not exceeded. 


WN OOONOUSE 


4 10$: BBCCI  #0,(R6),LOWERIPL 3 Unlock the queue. 
94 LOWERIPL: 
32 MOVL #SS$_NORMAL ,RO ; Indicate success. 
39 LOCK_FAIL: 
98 ENBINT : Enable interupts. 


99 RSB 


8 8 3 


C 4 
Show Cluster Utility i a: Sb $332:08 AX/VMS Macro v04-00 
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: } rt 5 -PSECT SNAP_DATA,RD,WRT ,NOEXE 

A3 10407 ; 

AS 10408 ; This buffer has been placed here so that the fixed Length snapshot buffers 
A3 1 3; can be logtee in — at the same time as the snapshot routines. The 

AS 10410 ; program will not assemble if this buffer is placed before the snapshot 
za ! rf ; buffers. (For some reason FIX_BUF_LEN cannot be resolved) 
4A3 10413 - 

AS 10414 OLD_FIX_BUF : 3 Cony of fix tongth buffer from 

O00008FB 04A35 10415 -BLK FIX_BUF_LEN 3 prey*ens snapshot. No need to 

BFB 10416 : lock this buffer. 


dD 4 ne Ears | 
5 uritie TESSEECIOBL SH:SE:O8 YAKS Maere y=00 yg. P29e 220, 


.SBTTL - GET_NUM_PB 7 | 


st 
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FUNCTIONAL DESCRIPTION: 
This routine is used to count the number of circuits on a system. 
It uses the information stored in PB buffer by the SNAPSHOT 
routine to count the path blocks. The number of circuits is stored in 
the associated system block. 


This code is separated from the snapshot routine to minimize time spent 
at raised IPL. 


CALLING SEQUENCE: 
JSB GET_NUM_PB 


IMPLICIT INPUTS: 


SNAPSHOT routine has been executed and the snapshot data is stored in 
SNAP _BUF . 


OUTPUTS: 


PRR R RRR RRP PRP RP PRP PPP PPE 


PEEWWAA ANION 


Number of path blocks on each system block stored in the respective 


es De Dn ek ee i i i Be es es i es Be Bs Be es Be 


ee eh ek ed a et od ed 8 a to 3 3 8 Ss tn Ls 8 a dd a 8 8 at st 8 a a 8 st 
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Ooooo 


a Bee Se Se Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Se Se Ge Gee Fe Se Ge Se Se Se Se Se Se Se 


| 
| 
| 
system block at offset SBSSHCS$L_NUM_PB. 
| 
| 
| 


8 
8 
8 
Bre ices 
: rr REGISTER USAGE: 
F 44 R2 = Counts the number of path blocks. 
F 44 R10 = Points to the first lLongword of a path block in PB buffer. 
F 45 R11 = Points to the first longword of a connection descriptor in 
F 45 COT buffer. 
F 45 
F 4535 ;-- 
F rf 
F 4 ET_NUM_PB: 
¢ Be F 45 PUSHR #*M<R2,R10,R11> 
58 00000 ED'EE D FF 43 MOVL VAR_BUF R11 : Get address of first system block. 
D4 0 458 10$ CLRL 3; Clear counter for number of paths on 
3 45 3; _this system block. 
5A OC AB 00 09 46 MOVL SBSL_PBFL(R11),R10 3; Get address of first path block on 
90C rh 3 _this system block. 
0D 13 O90C 104 BEQL 40$ ; Branch if there are no circuits on 
90E 1046 ; this system | 
12 AA BI ; 464 208: CMPW PBSW_STATE(R10) ,- : Is the circuit in the open state? 
3 91 46 #PBSC_OPEN : 
§ 12 aig £06 BNEQ : If not don’t count it. 
D6 091 46 INCL R2 : Increase count of path blocks on this 
916 1046 ; _system block. 
SA 6A f 318 rf} 30$: MOVL (R10) ,R10 ; Get address of next path block. 
‘31 44 ory BNEQ 208 : Branch if no more circuits on this | 
3: _system, 
04 AB 52 «200 4 ff) 40S: MOVL R2,SBSSHCSL_NUM_PB(R11) ; Save number of paths on the system 
; OCcK. | 
58 6B D0 O9IF 10474 MOVL (R11),R11 ; Get address of next system block. 


ocou BF 


Show Cluster Utility 
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Be 


BNEQ 
POPR 
RSB 


15-SEP=1 
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10$ 
#*M<R2,R10,R11> 
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; Loop for all systems in the cluster. 


alk 1 | 
31), 
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PRR R RRP REPRE 


i i a a a a a a a a a ad dd dd 
WO NAVE WN OO OONOAUS Wh SSLESRASLSSSESS Wino 


SQOQoQooooooooooooooooo 


DODOODOOODOOOODODOOOODOOOOODOODODODOODO0O00000000 
WOOOWOOODOOODOODODODDOODOODODODODOD0000000 
PUPVPVPVSPVPUPUPUPUSU TITIES 


Me wr 


So 


tility ie 177 360= 138% $937 :08 AX/VMS Macro V04-00 


-SBTTL Parser State Table. 
SINIT_STATE CMD_STATE,CMD_KEY 
SSTATE CMD_START 


STRAN ‘!*, TPAS_EXIT 3 Ignore comments. 
STRAN ‘SHOW’ ,SHOW : Command ‘'SHOW"’. 
STRAN ‘ADD',ADD 3 Command ‘‘ADD"’. 
STRAN ‘REMOVE’ REMOVE 3 Command "'REMOVE'’. 
STRAN ‘SET',SET ; Command ‘'SET"’. 
STRAN ‘HELP’ HELP ; Command ‘‘HELP’’. 
STRAN ‘EXIT’, TPAS_EXIT,=- ; Command ‘EXIT’. 
CNTRLC_AST_BEL 3 


STRAN ‘INITIALIZE*,TPAS_EXIT,-; Command “‘INITIALIZE"’. 
RESET 
STRAN ‘@',TPAS_EXIT,EXECUTE ; Execute procedure command. 


: Translate the SHOW CLUSTER and SHOW LOCAL commands. 
, SSTATE SHOW 


STRAN TPAS_EOS,TPAS_EXIT,=- ; Return if end of string. 
REFRESH 


E 


STRAN ‘CLUSTER',TPAS_EXIT,- ; “'SHOW CLUSTER". 
SHOW_ CLUSTER F 


STRAN ‘LOCAL PORTS',=- : "SHOW LOCAL_PORTS"’. 
TPAS_ERIT,SHOW_LOCAL : 


ro V04- 
CLIUTL.SRCIJSHWCLSTR.MAR; 1 
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SSTATE 
STRAN 


STRAN 
STRAN 


5 
; STRAN 
3 


5 
; 
9 
? 
g 
5 
; 
9 STRAN 
; 
g 
3 
; 
9 
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é ; Translate the add ‘class’ or ‘‘field-name"’ commands. 


ADD 


TPAS_EOS, TPAS_EXIT,= 
REFRESH 


"CLUSTER' ,ADD_CLUSTER,- 
DSch 


"SYSTEMS ,ADD_SYS,- 
DSc 


"MEMBERS’ ,ADD_MEMBERS ,- 
+e TKN_DSCR 
CONNECTIONS’ ,ADD_CON,- 
+ TKN_DSCR 

*CIRCUITS' ,ADD_CIR,- 

> TKN_DSCR 

*COUNTERS',- 


ADD_ COUNTERS, - 
oe TRN_DSCR 


*CREDITS' ,ADD_CREDITS,- 
DScR 


"LOCAL_PORTS',- 
ADD LOCAL PORTS ,~ 


"ERRORS' ,ADD_ERRORS,- 
pstr 


ee = 


TPAS_SYMBOL, .ADD_FIELD 
ADD_NEXT_CLASS 

<',*>, ADB 

"!* TPAS_EXIT,REFRESH 
reas EOS; TPAS. EXIT, 
TPAS_LAMBDA, TPAS_FAIL,- 
REFRESH 


; Return if end of string. 


“ADD CLUSTER" 

“ADD SYSTEMS’’. 
“ADD MEMBERS. 

“ADD CONNECTIONS’. 
“ADD CIRCUITS". 


“ADD COUNTERS"’. 


“ADD CREDITS". 


“ADD LOCAL_PORTS"’. 


“ADD ERRORS"’. 
"ADD field-name"’. 


Loop if another class was 
specified. 
Allow comments... 

or end of string. 


Anything else is an error. 


rave 233, 
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; ADD CLUSTER 


SSTATE ADD_CLUSTER 

STRAN '/*, ADD_CLUSTER_ALL 

STRAN TPAS LAMBDA - 
ADD_REXT_CLASS,- F 
In¢CUDE CLASS,..° 3 
CLS$m_CCus 


SSTATE ADD CLUSTER ALL 
STRAN 'ALC' ADD NEXT_CLASS,- ; ADD CLUSTER/ALL 


ADD_ALL_FIELDS;,.- 
~ cLSSm_cCus ; 
38 : ADD MEMBERS 
9) 
23 SSTATE ADD_MEMBERS 
33 STRAN ‘'/*,ADD_MEMBERS_QUAL 
59 STRAN TPAS_LAMBDA,- 
59 ADD_NEXT_CLASS,- : 
59 INCCUDE_CLASS,,.- : 
6 CLS$M_CSB : 
6 SSTATE ADD_MEMBERS QUAL 
6 STRAN ‘ALC’, ADD_NEXT_CLASS,- ; ADD MEMBERS/ALL 
ADD_ALL_FIELDS;,,- 3 
6 CLSSM_CSB : 


: ADD COUNTERS 


oO 


RORPONIPORIN 2 2 2 BOOOOOOSOSOSO: 


6 SSTATE ADD_COUNTERS 
6 STRAN '/*,ADD_COUNTERS_QUAL 
STRAN TPAS_LAMBDA,- 
ADD_REXT CLASS.- : 
INCCUDE CLASS,..° : 
6 CLSSM_CRT : 
6 SSTATE ADD_COUNTERS QUAL 
6 STRAN ‘ALC 


»ADD_NERT_CLASS,- ; ADD COUNTERS/ALL 
ADD _ALL FIELDS?..- : 
CLSSM_CRT 


ee ek at a we BB ed A a a a 8 a et 8 dd ht od ts ot 8 od ht 
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> ADD CREDITS 
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} 
} 3 
| 
; SSTATE ADD_CREDITS | 
3 STRAN '/*, ADD_CREDITS_QUAL | 
929 10634 STRAN TPAS_LAMBDA,- 
359 10686 abo REET oCLAgS.~ | 
9 ! $ het aa 3 
9 ; 106 5 SSTATE ADD_CREDITS QUAL 
929 1064 STRAN ‘'ALC',ADD_NEXT_CLASS,- ; ADD CREDITS/ALL | 
9 10641 ADD_ALL_FTIELDS;,,- ; 
929 1 64g CLSSM_CR ; 
929 1064 
929 1 4 
929 10645 ; | 
929 1 646 : ADD ERRORS 
929 1064 ; 
929 10648 | 
929 10649 SSTATE ADD_ERRORS 
09 9 10650 
929 10651 STRAN '/*, ADD_ERRORS_QUAL 
0929 1 63¢ 
09 9 1065 STRAN TPAS_LAMBDA,- 
929 10654 ADD_REXT_CLASS,- : 
09 9 10655 INCCUDE_CLASS,..- ; 
929 1 636 CLSSM_ERR : 
09 9 1065 
929 1 638 SSTATE ADD ERRORS. QUAL 
08 9 1065 STRAN ‘ALC’, ADD_REXT_CLASS,- ; ADD ERRORS/ALL 
929 10660 ADD_ALL_FIELDS7>,,- : | 
09 9 10661 CLSSM_ERR : 
929 1 66¢ 
0929 10663 : 
929 10664 : ADD LOCAL_PORTS 
929 10665 : 
929 1 666 
929 1066 SSTATE ADD_LOCAL_PORTS 
929 10668 
09 3 669 STRAN '/*, ADD_LOCAL_PORTS_QUAL 
929 10671 STRAN TPAS_LAMBDA,- 
929 1 ee ADD_REXT_CLASS,- ; 
929 1067 INCCUDE CLASS,..- ; 
929 10674 CLSSM_LPRT : | 
929 1 676 SSTATE ADD_LOCAL_PORTS QUAL 
929 1067 STRAN ‘ALC',ADD-NEXT_CLASS,- ; ADD LOCAL_PORTS/ALL | 
929 1 678 ADD_ALL_FIELDS*,,- ; 
959 1067 CLSSM_LPRT : | 
929 1 680 
929 10681 | 
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73 
; ADD SYSTEMS 
¥ SSTATE ADD_SYS 


STRAN ‘/*,ADD_SYS_QUAL ; Go to ADD_SYS_QUAL state if qualifier 
is present. 


; Otherwise just ADD SYSTEMS. 


Ne. 


wovono 


STRAN TPAS_LAMBDA,- 
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: Process ADD SYSTEMS qualifiers. 
; SSTATE ADD_SYS_QUAL 

STRAN ‘ALL',- 
NEXT_ADD_SYS_QUAL,- 
ADD_ALL_FIELBS,,,- 


CLSSM_SYS 
TRAN ‘ID',ADD 


ADD SYSTEMS/ALL 


6 SYS_ID ADD SYSTEM/ID 
STRAN ‘TYPE’, ADD_SYS_TYPE : ADD SYSTEM/TYPE 
STRAN 'NODE’.ADD-SYS-NODE ADD SYSTEM/NODE 
STRAN TPAS_LAMBDA, TPAS_FAIL 


: Loop for multiple qualifiers on the SYSTEMS class. 
SSTATE NEXT_ADD_SYS_QUAL 
TRAN ‘°/* 7 ADD7SYS~QUAL 
STRAN TPA$_LAMBDATADD_NEXT_CLASS 


OOOO OOOOOOOOOODOOOOOOOOOOOOOOOOOOOOO 


WDODOOOODOODODOOOODOODOOOOOOOOOOONOOODO 
a i a ak a a kk a a a a a a a ddd dd 


SOOOooooooooooooooS 


K 4 
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929 1 H 

929 1 ; ; Process ADD SYST ie! peeysten, t¢ 

4 ! 4 ; ADD SYSTEMS/ID=(system_id,...) 

929 107 SSTATE ADD_SYS_ID 

9 5 10724 $STRAN ‘s'~™ ~*~ 

929 10725 SSTATE 

929 107 § AY. *(* ,ADD_ID_LOOP 3; Go parse a List of ID's 
929 107 TRAN TPAS_LAMBDA, : Go parse a single ID 
929 107 SSTATE 

929 107 STRAN !ADD_SYS_ID_STRING,- — ; 

4 } 4 NEXT"ADD_SYS_QUAL 3 

929 107 § SSTATE ADD_ID_LOOP ; Parse a List of ID numbers till a ‘*)’’ 
929 107 ; is found. 
4 9 10734 STRAN ‘!ADD_SYS_ID_STRING H 

929 10735 SSTATE 

0929 107 $ STRAN <' "> ADD_1ID_LOOP : Go parse a single ID 

09 ; 107 f STRAN '),NEXT_ADDISYS_QUAL ; Exit loop if ')’’ found. 
? 4 18 44 SSTATE ADD_SYS_ID_STRING ; Parse a single ID 

929 19943 TRAN. TPAS_STRING,,,,TKN_DSCR ; Save address of string. 
0929 Ores S$STATE 
0929 1074 STRAN TPAS_LAMBDA,TPAS_EXIT,- ; Call REM_ID to remove system from 
08 9 10744 REM_TD ; disabled List. 

929 13ee? 
0929 10746 
0929 10747 


TR Show Cluster Utility 


SHWC 
v04 Parser State Table. 


3 3 : fs ; P ADD $ 
> Process 
2 9 } ; ADD S$ 
9 3 107 SSTATE 
9 2 107 ¢ STRAN 
929 107 SSTATE 
929 107 § STRAN 
929 107 STRAN 
929 107 8 SSTATE 
929 107 STRAN 
929 10760 
929 1 fel 
929 107 § SSTATE 
929 1076 
83 9 10764 STRAN 
929 10765 SSTATE 
0929 1 706 STRAN 
88 9 1378 STRAN 
929 10768 
0929 19768 
0929 10770 SSTATE 
0929 10771 
0929 tak 4 STRAN 
0929 1077 
0929 10774 
0929 Vere? 
0929 10776 STRAN 
0929 10777 
0929 19778 
89 9 10779 
929 10780 STRAN 
8 9 10781 
929 107 § 
0929 107 
0929 10784 STRAN 
4 9 10785 
929 107 $ 
0929 107 
929 107 8 STRAN 
929 107 
929 10790 
929 10791 
929 1 PS STRAN 
929 1079 
929 10794 
929 10795 
929 1 8 STRAN 
929 1079 
929 10798 


RSEP=1984 93:36:07 


YSTEMS/TYPE=hw_type 
YSTEMS/TYPE=(hw_type,...) 
ADD_SYS_TYPE 

ts! 

*(" ADD_SYS_TYPE_LOOP 
TPAS_LARBDA; 


'ADD_SYS_TYPE_STRING,=-; 


NEXT-ADD~SYS_QUAL 
ADD_SYS_TYPE_LOOP 
!ADD_SYS_TYPE_STRING 


<',">, ADD_SYS_TYPE_LOOP 
*) © NEXT_ADD_SYS_QOAL 


ADD_SYS_TYPE_STRING 


"ALL", TPAS_EXIT,= 
INCLUDE _CLASS,,.- 
CLS$M_ACL_SYS 


"v780" , TPAS_EXIT,= 
INCLUDE CLASS,,.- 
CLS$M_780_SYS 


"V785" , TPAS_EXIT,- 
INCLUDE LASS... 
CLS$M_785_SYS 


"V750" , TPAS_EXIT,- 
INCLUDE CLASS. «= 
CLS$M_750_SYS 


*HS50", TPAS_EXIT,- 
INCLUDE CLASS 7 
CLSSM_HSC50_SvS 


"HS60' , TPAS_EXIT,- 
INCLUDE _CLASS,,.- 
CLSSM_HSC60_SYS 


TPAS_LAMBDA, TPAS_FAIL 


AX/VMS Macro 


ro V04-00 
CLIUTL.SRCIJSHWCL 


STR.MAR; 1 


Go parse a List of system types. 
Go parse a single system type. 


a List of system types till a 
s found. 


Go parse a single system type. 
Exit loop if 3" found. 


Parse a single system type 
"ADD SYSTEMS/TYPE=ALL"' = Add all 
types of systems to the display. 


“ADD SYSTEMS/TYPE=780"' - Add only 
11/780 systems to the display. 


“ADD 


i neha 2 - Add only 
W/ 


85 systems to the display. 


"ADD SISTERS /T PESTS - Add only 
11/750 systems to the display. 


“ADD SYSTEMS/TYPE=HS50"' = Add only 
HSC50 systems to the display. 


"ADD SYSTEMS/TYPE=HS60"" = Add only 
HSC60 systems to the display. 


Any other type is an error. 


Pane 87) 


4 
SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro V04- 9 
v04 Parser State Table.” 2rSEE 1 8bs S8:3ei0F LON U TS eae te et ee ans, P88 268, 
1 3 
i 3 ° 3 Process ADD SYSTEMS/NODE=nodename 
3 ADD SYSTEMS/NODE=(nodename,...) 
SSTATE ADD_SYS_NODE 
Hie 
STRAN ‘(*,ADD_NODE_LOOP ; Go parse a List of nodenames 
ib F TPAS_LARBDA 3; Go parse a single nodename 
$TRAN 'ADD_SYS_NODE_STRING,- ; 
NEXTIADD~SYS_QUAL ; 


SSTATE ADD_NODE_LOOP gg a List of nodenames till a ‘")"' 
; _is found. 
'ADD_SYS_NODE_STRING ; Go parse a nodename. 


<' "> ADD_NODE_ LOOP 3; Loop if ‘’,"* found. 
STRAN ')*,NEXT_ADD_SYS_QUAL : Until a "S* is found. 


SSTATE ADD_SYS_NODE_STRING ; Parse a single nodename 
§ TPAS_STRING,,,,TKN_DSCR ; Save address of string. 


STRAN  TPAS_LAMBDA,TPAS_EXIT,- ; Call ADD_NODE. 
ADD_RODE 
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SooOoooooo 


PRONMNNNONUN) 2 2 3 SS Ss QOD OO OOOO 
wre 
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bad 


SOQOQoQoQoooooooooooo 


ai TR Show Cluster Utility sth. 15- ex lane 93:37:08 iar Macro V04-00 


5-SE ro Pa 3 
vO4 Parser State Table. 4-SE CLIUTL.SRCJSHWCLSTR.MAR; 1 ” 239) 


: 3 ADD CIRCUITS 
: SSTATE ADD_CIR 


STRAN ‘/*,ADD_CIR_QUAL ; Go to ADD_CIR_QUAL state if qualifier 
; is present. 


STRAN TPAS_LAMBDA,- 


INCCUDE_CLASS,. >= 
CLSSM_ACL_CIR 


Otherwise add all types of circuits 
to the display. 


FWWAIWWANNIror 


OOD NAUIE WN OS OOO NAUE WN OS OOO NAMES WN OVWONOUS Win 


3; Process ADD CIRCUITS qualifiers. 
SSTATE ADD_CIR_QUAL 
STRAN ‘ALL‘,- 3; ADD CIRCUITS/ALL 
NEXT_ADD_CIR_QUAL,=- 3 
ADD_ALL_FIELBS,,.- : 
CL ALL R 
STRAN ‘TYPE’,ADB_CIR_TYPE 3; ADD CIRCUITS/TYPE 
STRAN TPAS_LAMBDA,TPAS_FAIL 
Loop for multiple qualifiers on the CIRCUITS class. 
SSTATE NEXT_ADD_CIR_QUAL 
STRAN '/"SADD-CIR-QUAL 
STRAN TPA$_LAMBDATADD_NEXT_CLASS 


SSTATE ADD_CIR_TYPE 
$ ts! 


DODODOOODOOODOOO OO OOOOODOODODOODODOOOODOOOODODODODODOODOODODOODOOOOOOONO0O 
PAELLA AASAS MMMM SELLERS 
Sete te 


em me me ee me mB a a a a td ad od 


SOSODOOOOOOSOOOSOSSOSOSSOSOSOSSOSSOOSOOOOSOOOOOOOOSOO 


TRAN 
SSTATE 
STRAN ‘(*,ADD_CIR_TYPE_LOOP =; Go parse a List of circuit types. 
We TPA$_LARBDA; : Go parse a single circuit type. 
STRAN ‘ADD_CIR_TYPE_STRING.- ; 
NEXT_ADD_CIR_GUAL 3 
8 SSTATE ADD_CIR_TYPE_LOOP :; Parse a List of circuit types till a 
0 ; “)** is found. 
3 sre 'ADD_CIR_TYPE_STRING 
4 STRAN <*> ADD_CIR_TYPE_LOOP ; Go parse a single circuit type. 
as STRAN ')',NEXT_ADD_CIR_QOAL ;: Exit loop if ‘3’ found. 
7 
4 SSTATE ADD_CIR_TYPE_STRING ; Parse a single circuit type. 
4 STRAN ‘ALL, TPAS_EXIT,=- ; “ADD CIRCUITS/TYPE=ALL" = Add all 
? INCLUDE CLASS...> ; types of circuits to the display. 
CLSSM_ACL_CIR 
: STRAN ‘OPEN’ ,TPAS_EXIT,=- ; “ADD CIRCUITS/OPEN’ = Add circuits in 
4 INCLUDE_CLASS,..~ ; the open state to the display. 


Show Cluster 
Parser State Viole. 
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yest ity 


STRAN 


STRAN 


15=SEP=19 2: AX/VMS M -00 Page 231 
SrSEEIISBS $S:52:88 PARIWES Sacre vote nans1 2% 23), 
CLSS$M_CIR!CLSSM_OPEN_CIR; 
"NOOPEN' ,TPAS_EXIT,- |; ‘ADD CIRCUITS/NOOPEN" = Add circuits 
INCLUDE ELASS; ad ;_ in non-open states to the display. 
Ng “CTR!CLS$M, NOOPEN_CIR 


TPAS_LAMBDA,TPAS_FAIL ; Any other type is an error. 


suc TR Show Cluster yet tity 2% uF at dat B49 83:32:08 awtieng gt a ne Page 232. 


Parser State Table. 4-SEP=1 CLIUTL.SRCIS TR.MAR; 1 
1 +1 3 ; | 
1 2 : ADD CONNECTIONS | 
3 3 , SSTATE ADD_CON | 
929 1 STRAN '/',ADD_CON_QUAL ; Go to ADD_CON_QUAL state if qualifier | 
4 4 ! 2 ; is present. 
929 109 5 STRAN TPAS_LAMBDA,- 3; Otherwise add all types of connections | 
3 10904 ADD_REXT CLASS,- 3 to the display. 
359 10906 he eee eee ; 
355 18307 hi | 
> 4 ! $09 ; Process ADD CONNECTIONS qualifiers. 
; 3 11 : SSTATE ADD_CON_QUAL | 
929 19918 STRAN "ALL',- 3; ADD CONNECTIONS/ALL 
929 10914 NEXT_ADD_CON_QUAL,=- H 
08 9 19912 ADD_ALL_FIELBS,,.- 3 
929 1 318 LSSm_ACL_CON 
be 1091 STRAN *TYPE’,ADB_CON_TYPE 3 ADD CONNECTIONS/TYPE 
929 +9444 STRAN TPAS_LAMBDA, TPAS_FAIL 
$959 10920 ; 
09 3 109 1 ; Loop for multiple qualifiers on the CONNECTIONS class. 
929 193 § : SSTATE NEXT_ADD_CON_QUAL 
929 10924 STRAN '/* ADD CON_QUAL 
3 3 199 5 STRAN TPAS_LAMBDAZADD_NEXT_CLASS 
929 109 5 SSTATE ADD_CON_TYPE 
929 109 3 STRAN ‘=! 
929 109 SSTATE 
0929 10930 TRAN ‘(°,ADD_CON_TYPE_LOOP =; Go parse a List of connection types. 
929 10931 STRAN TPAS_LAMBDA; : Go parse a single connection type. 
929 109 ¢ SSTATE 
9 3 109 STRAN 'ADD_CON_TYPE_STRING,- ; | 
929 10934 NEXT_ADD_CON_GUAL 3 
3 188 
929 109 $ SSTATE ADD_CON_TYPE_LOOP ; Parse a List of connection types till 
929 109 3 ; a')"' is found. 
929 109 STRAN 'ADD_CON_TYPE_STRING 
359 10941 STRAN” <*,">,ADD_CON-TYPE LOOP ; 6 ingl tion t 
3; Go parse a single connection e. 
3 ; ! Ree STRAN *) © NEXT_ADD_CON_QOAL 3 Exit loop if 1 found. - 
929 10944 
3 2 ! Be? SSTATE ADD_CON_TYPE_STRING ; Parse a single connection type. | 
929 1 308 STRAN "ALL’, TPA$S_EXIT,- : “ADD CONNECTION/TYPE=ALL"* = Add all 
929 1 348 INCLUGE CLASS.,.- : types of connections to the display. 
, ; ’ 4 CLS$M_ACL_CON 
929 10951 STRAN *OPEN' , TPAS_EXIT,= ; “ADD CONNECTIONS/OPEN’ = Add | 
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4-SEP=1 


; Translate the REMOVE "class" or ‘‘field-name’’ commands. 


SSTATE REMOVE 
STRAN TPAS_EOS,TPAS_EXIT,=- 3; Return if end of string. 
REFRESH 


STRAN eee feet usTER. = ; “REMOVE CLUSTER" 


STRAN ‘SYSTEMS’, REM_SYS,- ; “REMOVE SYSTEMS". 
eo TKN_DSCR : 


STRAN ee eee ; "REMOVE MEMBERS’. 


STRAN ‘CONNECTIONS’,REM_CON,- ; ‘REMOVE CONNECTIONS’’. 


»e TKN_DSCR : 

STRAN ‘CIRCUITS',REM_CIR,-  ; “REMOVE CIRCUITS". 
» TKN_DSCR ; 

STRAN "COUNTERS : REMOVE COUNTERS". 
RER COUNTERS ; 


STRAN CRESTS shen ERED ITS. ; “REMOVE CREDITS". 


STRAN ‘ERRORS’ 


REM_ERRORS,- ; "REMOVE ERRORS'’. 
+e TKN_DSCR : 
STRAN ‘LOCAL_PORTS',- ; “REMOVE LOCAL_PORTS"’. 
REM LOCAL PORES, - ; 


STRAN TPAS_SYMBOL 
REMOVE FEL, - 


3; “REMOVE field-name"’. 


SSTATE REA, NEXT CLASS 
STRAN > ,REROV Loop if another class was 
STRAN '!" TPAS_EXIT. REFRESH ae he 
STRAN Teag £0 EOS; TPAS. EXIT, - 


or end of string. 
STRAN TPAB LAMBDA, , TPAS_FAIL,- 


Anything else is an error. 


—————e ~] 


SS _ + 


FS | 
vousbo0" Parser State fable” "RSER=SRS 83:32:07 FOUPE SRESSuuccste.mans1 29° 433) | 
| 


— 
— 
— 


REMOVE CLUSTER 


STATE REM CLUSTER 
TRAN TPAS LAMBDA 
REM NEXT CLASS,- 


et adel CLASS,..° 


: REMOVE MEMBERS 


STATE REM MEMBERS 

STR TPAS LAMBDA 

REM REX! CLASS, = 
ENCEUDE SE UDE_CLASS,..- 


REMOVE COUNTERS 
gerare REM COUNTERS - 
STR TPAS_ LAMBDA, 
REM NEXT CLASS,= 


exCEU DE CLASS...- 
CLSSM_CAT 
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> REMOVE CREDITS 


SSTATE REM cREDITS 
STRAN TPAS gt AMBDA 
REM REXT eth 
ENCE UOE LASS,,.- 


SSTATE REM_LOCAL_PORTS 
STRAN i past 


MBDA, - 
m REXT CLASS, = 

rts UDE_CLASS,..- 

CLSSM_LPRT 


: REMOVE ERRORS 


$ST oy REM a4 


STR TPAS 
mn REXT Teekss.- 
EXCTUDE CL CLASS,..- 


ed et ed a aed ed td bd ed dd 2 
a cc a ee ee ee ee me ee ee ee ee ae ee ee ee ee ee ee ed ed ed od od od od 


; REMOVE LOCAL_PORTS 
| 
} 
| 
| 
} 
| 
| 
| 


suc TR how Cluster yett ity .* 177 360-138% $3: 3: 8 ihn Macr Bs or ste mor | 


arser State Table. 4-SEP- CLIUTL.SRCJSHWCLSTR.MAR;1 


ae 
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a a tt ae td a tt — 


7% ; 
é ; REMOVE SYSTEMS 
: SSTATE REM_SYS 


STRAN ‘/* ,REM_SYS_QUAL 
STRAN 


Go to REM_SYS_QUAL Seats if 
qualifier is present 

Otherwise just REMOVE “SYSTEMS. 
RER ‘at XT AT eLASS, = 

ES eu hE ee UDE CLASS,,.- 


: Process REMOVE SYSTEMS qualifiers. 

9 : SSTATE REM_SYS_QUAL 

STRAN ‘ID',REM_S ; REMOVE SYSTEM/ID 
STRAN ‘TYPE’ AE Sys TYPE 3: REMOVE SYSTEM/TYPE 
STRAN ‘NODE’ REM"SYS NODE : REMOVE SYSTEM/NODE 
$TRAN TPAS EUARGDK TPAS_FAIL 


$sTATE NEXT REM. S¥s _QUAL 
RAN '°/*"REM"SYS~QUAL 
STRAN TPAS TE ARBDAS REM_NEXT_CLASS 


ek et nd ot ts 8 8 at 8 a 8) td 2 8 8 ts 8 Ss 8 tt 


| 
| 
} 
| 
: Loop for multiple qualifiers on the SYSTEMS class. | 
| 


src 
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Process penoy SYSTEMS/ID= system. i 


SYSTEMS/ID= (aystea, Gase0e) 


REM_SYS_ID 

= 

"(* REM_ID_LOOP 
TPAS_LARBDA, 


'REM_SYS_ID_STRING,= 
NEXT-REM-SYS_QUAL 


REM_ID_LOOP 
!REM_SYS_ID_STRING 


REM_1D_LOOP 
SC NERT REM"SYS_QUAL 


REM_SYS_ID_STRING 
TPAS_STRING,,,,TKN_DSCR 
TPAS_LAMBDA, TPAS_EXIT,- 
ADD_TD 


Go parse a List of es 
Go parsz a single ID 


Parse a List of ID numbers till a ‘’)"’ 
is found 


3; Go yh A sin te, ll 
3 Exit loop if ' 


; Parse a single ID 


Save address of string. 


Call ADD_ID to add system to 
disabled List. 


Show Cluster vert tty . 
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sachs 


We 


: Process REMOVE SYSTEMS/TYPE=hw_typ 


SSTATE 
STRAN 


REM_SYS_TYPE_STRING 


"ALL", TPAS_EXIT,= 
EXCLUDE _CLASS,,.- 
CLSSM_ACL_SYS 


*v780' , TPAS_EXIT,= 
EXCLUDE CLASS. «= 
80_SYS 


STRAN 


PDD DEPP PPTs B= Be BE EE EIN 


§ REMOV 

SSTATE REM_SYS_TYPE 

TRAN '‘s! 

SsTAte *(" REM_SYS_TYPE_LOOP 

STRAN TPAS_LARBDA, =~ 
4 STRAN !REM_SYS_TYPE_STRING,- 
5 NEXT-REM~SYS_QUAL 
5 SSTATE REM_SYS_TYPE_LOOP 
$ STRAN !REM_SYS_TYPE_STRING 
0 SSTATE 
1 TRAN <')">, REM SYS TYPE LOOP 
2 STRAN ')* .NEXT_REM_SYS_GOAL 
4 
0 


CLSSM_ 
STRAN 'V785', TPAS_EXIT,- 
EXC ung GLASS. 6 
CLS$M_785_SYS 


EXtiuoe CLaSen ne 
CLSEM soceys’”” 
"HS50°,, TPAS_EXIT,- 
EXCLUDE CLASS... 
CLSSM_HSC50_SYS 
"HS60°, TPAS_EXIT,- 
EXCLUDE CLASS... 
CLSSM_HSC60_SYS 


TPAS_LAMBDA, TPAS_FAIL 


STRAN 


STRAN 


STRAN 


STRAN 


a kB 8 a 8 SS a a eS DS RD 
a a a a a a at sk nk a ss tt 
a at ad at ss a = a tn ss tt a a ss a ts os tt tt 
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RSEp=198e SS:3Ei8 ECTTUTE. SRESSMeL ste. man: 1 


e 


e 
SYSTEMS/TYPE=(hw_type,...) 


Go parse a List of system types. 
Go parse a single system type. 


Parse a List of system types till a 
")" is found. 


Go parse a single system type. 
Exit loop if Age eoind. - 
Parse a single system type 


“REMOVE SYSTEMS/TYPE=ALL"* - Remove all 
types of systems from the display. 


; “REROVE, SUSTERS/TYPESTOO - Remove 


only 11/780 systems from the display. 


hy SYSTEMS/TYPE=785"" - Remove 
only 11/785 systems from the display. 


in | SYSTEMS/TYPE=750°" - Remove 
only 11/750 systems from the display. 


“REMOVE SYSTEMS/TYPE=HS50"° = Remove 
only HSC50 systems from the display. 


“REMOVE SYSTEMS/TYPE=HS60"" - Remove 
only HSC60 systems from the display. 


; Any other type is an error. 


Pee 08) 


| 


sachs" 
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Parser State Table. 


11185 ; 


STATE 
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gi Process Remove SYSTEMS/NODE=nodename 
REMOVE SYSTEMS/NODE=(nodename,...) 


REM_SYS_NODE 

= 

*(* REM_NODE_LOOP 
TPAS_LARBDA ~ 


'REM_SYS_NODE_STRING,=- 
NEXT REM_SYS_GUAL 


REM_NODE_LOOP 
'REM_SYS_NODE_STRING 


REM_NODE_LOOP 
3 REM_SYS_QUAL 


REM_SYS_NODE_STRING 


TPAS_STRING,,,,TKN_DSCR ; 


TPAS_ LAMBDA, TPAS_EXIT,- 
REM_NODE 


3; Go parse a nodename. 


; Parse a single nodename 


Se | 


Go parse a List of nodenames 
Go parse a single nodename 


Parse a List of nodenames till a ‘')"’ 
s foun 


Loop if *',"’ found. 
Until aS’ is found. 


Save address of string. 
Call REM_NODE. 


Show Cluster 
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ee ke ee ek eB a a ee a ek eh ee a a we ad a ed Bs) tt tt 
td ed = od ts = 4 8 3 4 2 Ss 2 Ss 


tilit 
Viblee? 


SSTATE 
STRAN 


STRAN 


SSTATE 


STRAN 
STRAN 


SSTATE 
N 
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SSTATE 
STRAN 
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STRAN 


CONAN WO OONOULS Wl 


AAO 


STRAN 


"TSE=19E 88:38:07 HOCIUTE. SRESSMuCL STR. man 


; ; REMOVE CIRCUITS 


REM_CIR 
"7" ,REM_CIR_QUAL 


TPAS_LAMBDA 

REM NEXT. CLASS,- 
EXCCUDE_CLASS,..- 
CLS$M_ACL_CIR 


Process REMOVE CIRCUITS qualifiers. 


REM_CIR_QUAL 


"TYPE' ,REM_CIR_TYPE 
TPAS_LAMBDA, TPAS_FAIL 


/* REM 


Go to REM_CIR_QUAL state if qualifier 
is present. 


Otherwise remove all types of circuits 


to the display. 


REMOVE CIRCUITS/TYPE 


Loop for multiple qualifiers on the CIRCUITS class. 
5 Hedy NEXT REM_CIR ~ UAL 


R7 QUAL 
TPAS$_LARMBDA;REM_NEXT_CLASS 


REM_CIR_TYPE 
ts! 


*(" REM_CIR_TYPE_LOOP 
TPAS_LARBDA; 
'REM_CIR_TYPE STRING,~ 
NEXT“REM~CIR_QUA 


REM_CIR_TYPE_LOOP 
'REM_CIR_TYPE_STRING 

<',">,REM_CIR_TYPE_LOOP 
*) 0 NEXT. REM_CIR_QOAL 
REM_CIR_TYPE_STRING 
"ALL', TPAS_EXIT,= 

EXCLUDE CLASS. 44 
eX M_ACL_CIR 

LOPEN® gTPAs EXIT.= 

XCLUDE LASS 

ELS 4 OOPEN. wat 


"NOOPEN' , TPAS_EXIT,= 


; Go parse a List of circuit types. 


Go parse a single circuit type. 


; Parse a List of circuit types till a 


aye is found. 


Go parse a sin le circuit type. 
Exit loop if *)'’ found. 


; Parse a single circuit type. 


“REMOVE CIRCUITS/TYPE=ALL"® - Remove 
att types of circuits from the 
display. 


™ MOVE CIRCUITS/OPEN’’ = Remove 
rcuits in the open state from to 
the display. 


; "REMOVE CIRCUITS/NOOPEN’’ - Remove 


2 


Parser State Yonle.” "ESERIES SHEZ:GE PAMUNE.SRESSAMCESOR. mane ~ it 
ae ie EEELUDEGELASS 1g jgfcfults Im nonronen states trom the 
3 9 i : 


STRAN TPAS_LAMBDA,TPAS_FAIL ; Any other type is an error. 


ns os aes 
voa-000" Parser State seers RSEP=15E $8:28:07 LECTURE SRESSMuccstR.mans1 "°° 908, 


ie REMOVE CONNECTIONS 


7 
23 SSTATE REM_CON 
STRAN ‘/*,REM_CON_QUAL ; Go to REM_ CON. QUAL state if qualifier | 

1 ; is present. 

j STRAN TPAS_LAMBDA 3; Otherwise remove all types of 
4 REM_REXT CLASS, = 3 connections from the display. 
5 EXCCUDE_CLASS,..- ; 

§ CLS$M_ACL_CON 3 

ei 3 Process REMOVE CONNECTIONS qualifiers 

4 : SSTATE REM_CON_QUAL 

38 STRAN ‘TYPE’, REM_CON_TYPE ; REMOVE CONNECTIONS/TYPE 

oe STRAN TPAS “LAMBDA, TPAS_FAIL 

9 


3 : Loop for multiple qualifiers on the CONNECTIONS class. 


SGOQOooooooooooooooooooo: 
DODODODOOOOOODOO DOO DOOOOOVOOOOOOOOOOOOOODOOODOOOODOOODOOOOOOOOOO00000 
DWDODODODOOOOOODOOOOVDOODOOODOOOODODOODODODODOOODOOODODOODOOOODOODOOOOOOOOOOONO 
ee ee ee a ee ee a ee a ce ee ce a a ee a a a a a a a a a a a ed a a 


é CLASS eee 


ech ue connects ons in the open state from 
ets M_OPEN_CON display. 


| 
i 
STRAN ‘NOOPEN' ,TPAS_EXIT,=- ; “REMOVE CONNECTIONS/NOOPEN’® - Remove | 


a a ee dhs 8 hd 8 8 a tt a tt 


a9 SSTATE NEXT _REM_CON_ coat 
00 STRAN ‘/* REM”-CON QUAL 
01 STRAN TPAS LAMBDA, REM_NEXT_CLASS 
88 SSTATE REM_CON_TYPE 
04 $TRAN '‘=' 
05 SSTATE 
BS TRAN ‘(" — ascn- TYPE_LOOP =; Go parse a List of connection types. 
b it TPAS_L ; Go parse a single connection type. 
88 TRAN !REM_CON_TYPE_STRING,- ; 
+ NEXT_REM_CON_GUAL 3 
1 
13 SSTATE REM_CON_TYPE_LOOP :; Parse a List of connection types till 
14 : a)" is found. 
15 STRAN '!REM_CON_TYPE_STRING 3 
18 SSTATE 
1 TRA <*> REM_CON TYPE LOOP ; Go parse a single connection type. 
18 STRAN ')°,NEXT_REM_CON_GOAL =; Exit loop if 'S'’ found. 
; SSTATE REM_CON_TYPE_STRING ; Parse a single connection type. 
STRAN sorts TPAS_EXIT.- ; “REM CONNECTION/TYPE=ALL"* = Remove all 
4 webs CLASS...> 3 types of connections from the 
5 EtSSn ACL_CON ; display. 
STRAN stcrip Naive EXIT,- ; “REMOVE CONNECTIONS/OPEN’® = Remove 
0 
1 
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929 1 
0929 1133 
0929 11 


15-SEP= 
4-SEP- 


EXCLUDE_CLASS 
CLSSM_NOOPEN_ ton 


TPAS_LAMBDA, TPAS_ 


1986 33:28:88 


FAIL 
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AX/VMS M v04-0 P 4 
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CLIUTL. SRE SSHWCLSTR. MAR; 1 


agetene in non-open states from 
splay. 


her type is an error. 


B 6 
vos-080" Parser State fables” RSE=198e 8:32:87 LOCTUTE.SRESuuceste.mans1 "29° 305 


929 11339 ; 
929 11540 ; Set command. 
He 
1134 SSTATE SET 
3 11344 STRAN TPAS$_EOS,TPAS_EXIT,- ; Return if end of string. 
H 1 rf REFRESH 
11 23 STRAN * INTERVAL’ ,- 3; SET INTERVAL 
929 11 48 PARSE_ INTERVAL 3 
929 1134 STRAN ‘SCREEN’, PARSE_SCREEN ; SET SCREEN 
; 1 i STRAN TPAS_LAMBDA,SET_FIELD : Must be SET FIELD 
929 11 
STAT T FIELD 
3 i 38 serate Feis' of SY ABO 3; Check for valid field name. 
929 11355 SET FIELD _QUAL,- $ 
, i} 28 LOORUP_FIELD 3 
929 11358 SSTATE as _F IELD_ QUAL 
929 11359 TRA */* SET" FIELD QUAL 3; Loop on qualifiers to the fieldname. 
, 1} re STRAN TPAS_LAMBDA, SET_NEXT ; Or else go on to next SET entity. 
03 11 86 SSTATE SET_FIELD_QUAL 
929 1136 STRAN a 3; Expect a qualifier. 
929 11364 TRAN TPAS_LAMBDA,TPAS_FAIL =; Else error. 
1} g2 SSTATE 
929 11 $6 TRA sFORRAT! = = FIELD_WIDTH ; SET field-name/WIDTH. 
9 1136 STRAN "FORMAT : SET field-name/FORMAT. 
929 11368 SET FIELD F F 
3 i 34 STRAN TPAS PLANBBAS TPAS FAIL ; Any other qualifier is an error. 
be 11371 SSTATE SET_FIELD_ WIDTH : SET field/WIDTH 
929 11 1 STRAN 'PARSE VACUE,- 3; Get the value and set it. 
89 1137 NEXT sEey FIELD_QUAL ,- 3 
0999 11378 ike é' : 
TAT TF D_FORMAT ; Get the desired field format. 
; 1 7 SiraN eT. mes, 3 SET field/FORMAT= 
929 11 § STRAN ‘"DECIMA : SET field/FORMAT=DECIMAL 
a Hue aiiepeatitat 
929 11 ee STRAN ‘HERADECIMAL : SET field/FORMAT=HEXADECIMAL 
929 11 NEXT eS FIELS. QUAL.- ; 
4 i : SET_FORMAT,, HEX : 
TAT T_NEXT 
3 i ; STRANC sf reeerT 3 Loop on tet. command if comma follows 
3 e en 
3 11389 STRAN TPAS_LAMBDA,TPAS_EXIT,- ; If not pd then redraw the header 
i i 30 REFRESH : and return. 
STATE PARSE_INTERVAL 
3 ij 38 Hi 'PARSE sn tie TPAS EXIT, =; Get the value and set it. 
, i} Be SET_INTERVA 3 
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SSTATE PARSE SCREEN 

STRAN !PARSE_VALUE,TPAS_EXIT,-; Get the value and set it. 
SET_SCREEN : 

SSTATE PARSE_VALUE 

aie ‘s' : Must begin with = 


STRAN <‘'='>, TPAS Negative numbers are a no-no. 
STRAN TPAS SECIAAL tas sextt ef Store a decimal number at VALUE. 


vACU 
TPAS_LAMBDA,TPAS_FAIL : ALL else fails. 


; Help command 


SSTATE HELP 
STRAN TPAS_LAMBDA, TPAS_EXIT,GET_HELP 
SEND_STATE 


— 3 3 SS 2 SO 
me ed aed od dd dd dd Dd dD 
Se ee ee ee ee ee ee ee 
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so 
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-SBTTL Tparse action routines. 
-SBTTL - SHOW CLUSTER 


FUNCTIONAL DESCRIPTION: 


This routine sets the report to clusters. It stores the parameters 
necessary for the FIND_ENTRY routine to locate a field descriptor for 
the cluster report. If sets the bit in CURRENT_REPORT that indicates 
that the cluster report is being displayed. It also saves a copy of 
the scroll flags for the local report and restores the scroll flags 


Bete Ge Ge Ge Ge Ge Sete 
+ 


for the cluster report. 


CALLING SEQUENCE: 

CALLS #0,SHOW_CLUSTER 
CALLED BY: 

EULTEM DISPLAY 


IMPLICIT INPUTS: 


CLSTR_SCROLL_FLAGS 
contains a mask of the scroll flags set from the last 
time the cluster report was being displayed. 
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IMPLICIT OUTPUTS: 


| 

| 

| 

ADRS_ TABLE contains the address of the cluster address table. 
BITMAP_ADRS contains the address of the cluster bitmap. | 
KEYTAB_ADRS contains the address of the cluster keyword table. 
| 

! 


WDOODOOODODODODO000000000000000909005659595 
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SSS33S33333333333e32 


L contains the the length of the cluster bitmap. 
CURRENT REPORT Set to clusters by setting RPTS$M_ REPORT. 
SCROLL_FLAGS cqstored to from the Last time the cluster report was 
splayed. 


RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 
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0000 ? ENTRY SHOW_CLUSTER, “M<> 
1AA2' 30 e3 BSBW CLEAR SCREEN 3; Clear the screen. 
gp 5 3 ‘ 9 BLBC RO,998 : Branch on error. 
0000093392 B'EF 7F 7 PUSHAQ SCREEN DSCR ; Set up a buffer for the screen. 
"GF 01 FB 7 te CALLS #1,G*LTBSSET_BUFFER ; 
50 50 ~€ ‘ 7 BLBC R ; Branch on error. 
E2 74 BBSS § #RPTSV_CLSTR,- ; Branch if we're already displaying 
50 FOBA CF ; 75 CURRENT_REPORT, 10$ ; the cluster report. Otherwise set 
1 3; _the current report to clusters. 
OO000047A'°EF 90 ? 7 MOVB SCROLL_FLAGS,=- ; Store the scroll flags for the local 
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MOVB 
MOVL 
MOVL 
MOVAL 
MOVAL 
MOVAL 


L 
LS 
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OCAL SCROLL FLAGS 
LSTRESCROLL-FLAGS,~ 
CROLL FLA 
CLASS. SELECT,LOCAL_SAV 
CLUST SAV “CLASS_SELEC 
LUSTER_KEYTAB,- 
KEYTAB_ADRS 
CLUSTER_ TABLE ,ADRS_ TABLE 
CLUSTER_BITMAP,- 
BITMAP_ADRS ; 
#CLUSTER MAP_LEN,MAP_LEN; 
#0, REFRESH ; 


AX/VMS Macro v04-00 
CLIUTL.SRCISHWCLSTR.MAR; 1 
report. 

Get the cluster report scroll flags. 

Save local report class selections. 

Get cluster report class selections. 

Store address of cluster keyword 


table. 
Store address of cluster address 


table. 
; Store address of cluster bitmap. 


Store length of cluster bitmap. 
Redraw the header. 
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F 6 
"Sow totAL RSEp=19be 83:28:08 LCCIUTE. SeeSSwucestR.man1 


4 .SBTTL - SHOW_LOCAL 
344 


: FUNCTIONAL DESCRIPTION: 


This routine sets the report to local ports. It stores the parameters 
necessary for the —_ ENTRY ag ba to Locate a field Seege recor for 
the local report. fets Re bit in CURRENT_REPORT that neweoegs 
that the local report being displayed. It also saves a copy ¢f 

the scroll flags for the cluster report and restores the scroll flags 
for the local report. 


CALLING SEQUENCE: 
CALLS #0,SHOW_LOCAL 
CALLED BY: 


—H—DOOODOOC GOOOVOOOOOO 
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1 
! SWITCH_DISPLAY 
: IMPLICIT INPUTS: 
1 LOCAL_SCROLL_ Punes 
1 ntains a mask of the scroll flags set from the Last 
\ ‘fee the cluster report was being displayed. 
IMPLICIT OUTPUTS: 
ADRS_ TABLE contains the address of the local status address table. 
BITMAP_ADRS contains the address of the local status bitmap. 
Sah * ADRS contains ene address of the local status keyword table. 


AP_LE contains the the length of the local status bitmap. 
CURRENT REPORT Set to locat report Y clearing RPTSM_REPORT. 
SCROLL_FLAGS cyeteres oe Pt oy the last time the cliUster report was 

splayed. 


RETURN STATUS: 
SSS_NORMAL or failed status returned in RO. 


at 
BR ee aah ahs h th pbb pbb tbe bes beh beth sb sb sb sb eah ah ahaha ealvalealealealvalesleslesleal eal oP oP oP oF a? a) 


SOO NANE WN OS ODA NE WIN SO ODNAUE WN O OONAUL Wy 


0000 -ENTRY SHOW_LOCAL ,“M<> 

jage® 30 BSBW RO, 998 SCREEN 3; Clear the screen. 

gp e? BLBC 3; Branch on err 
0000055B"EF  ?7F 4 PUSHAQ Schee : Set up a butter fer the screen. 

00000000 ' GF fe 4 CALLS gayi BUFFER 3 
50 E 4 BLBC RO : Branch on error. 
5 4 BBCC } «=—_« #RPTS$V_C : Branch if we are already displaying 
50 F644 CF 4 CURRENT ChePORT, 10$ : local report. Otherw se, set 
4 3 _current report to local. 

7A°EF 690 4 MOVB SCROLL_FLAGS.- 3; Store the current scrett flags for 

7C‘EF 4 CLSTR “SCROLL. _FLAGS 3; the cluster report. 

4 B44 90 ? MOVB LOCAL SCROLL. FLAGS,=- 3; Get the local report scroll flags. 

00002204°EF F62A CF 00 5 MOVL CLASS SELECT, CLUST_SAVE ; Save cluster report class selections. 
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eine 
00008874" 80000000" EF 
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how Cluster Utility 
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elt RNEASSE As 


tOeat -JAPLE,ADRE TABLE: st 
BLOCAC ar LEN, MAP_CEN 


: Store 
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Stor local rooers lass selections. 
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.SBTTL - ADD_FIELD | | 


FUNCTIONAL DESCRIPTION: 
This routine is used 9 add a field to the By. oy by setting the bit 
corresponding to the field in fre bitmap for t o qurrent report. If 
field is in a class wien B currently not being Creel ered then 
that class is enabled along with the eos ae 4 poet. t all other 
fields in that class are turned off. ass being enabled is 
the Cluster class, then update FTRST pata® et . that the scrolling 
region does not encompass the Cluster class display. 
CALLING SEQUENCE: 
CALLS #0,ADD_FIELD 
CALLED_BY: 
READ_W_PROMPT 
INPUTS: 
KEY_OFF = areress of jonmuere in the bitmap that contains the bit 
rrespondi ng to the field selecte 
KEY_MSK = Mask of the bit within KEY_OFF corresponding to the field. 
OUTPUTS: 
Bit corresponding to the field set in the bitmap. 
RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 
REGISTER USAGE: 


R2 - Points to the address containing the bit corresponding to the 
e 
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O1F -ENTRY ADD_FIELD, “M<R2,R3,R4.R5,R6,R7,RB> 
QO000B3A'EF 00 CALCS #0, LOOKUP_FIELD 
52. 00000543'EF 


53 0000054B8'EF 


Check for vette field name. 
Branch on e 
Get _*Errent iu (ongword containing 


JLBC P 
MOVL KEY_OFF ,R2 


MOVL KEY_DSCR,R3 Get * the address of the descriptor for 


the fiel 


BONAWNE WO OOO NAW WN 


OC As 1 BITL FDSL CLASS(R3), - : Is the class for this field already 
F5C9 CF 1 LASS. SELEC 3 nabled? 
1 JNEQ $ 3 areneh if s 
03 : BBC FOSLEECASS U1 108 : Is this field in the circuits class? 
0000069 8F 1 BISL PCL Ssh ALL_CIR ; If so, enable all types of circuits. 
Ff gf 61 gh Ass. SELectt é 
2 61 BRB 3; Jump to common code. 
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ON) Semin et ise ra Sa ratings tat ee ee id 
: : Is this field in the connections 
RS a A 4 1] - - rote EcASs tA -208 : ¢lass? 
noose 9 8F CB OAS2 1 BISi peL Ssh 3 If so, enable all types of 
‘8 s A § 1 tts sett nn ; connections. 
{ 11 OASB 11 BRB cA : Jump fo common code. 
05 E1 QASD 11624 208: BBC +7 ee: He: aC 258 : Is this field in the cluster class? 
CCAS 3 
0000 % © AaD 11658 na ; If so, set first Line to be scrolled. 
— % 8 A § ¥ $ 25$: Bist fact ithsstabh : Enable the class. 
00002 ef rine j : of field descriptor 
58 53 ‘EF 00 " ; i 30$: MOVL BITMAP_ADRS RS : eBiemop forthe ee 
9 3 r 
rE ee ng 116 ¢ Etat ;" TStROLL LINE : Rake ure, that Titge scrolled off 
; $s 
00. =«€1 A i 4 BBC #RPTSV_CLSTR,=- : Branch if we’ s not Seslavtte the 
09 F579 CF A He 5 cyanesT REPORT, 50$ 3; cluster report 
0000226C ‘EF § 1] ABB 116 § MOVL STER_MAP "LEN. MAP aLEN; — zenges * cluster bitmap. 
1 ASF 116 BRB 3 ommo 
g ; th of local bitm 
speed: 18c8" BO Gage fies9 os: BsBuOFINDERTAY- se Search fer any field being displayed. 
; none 
AP fy rtd 11809 euPL ath _CLASS(R10),= : Is the ae for the field we just 
; A “ AA 11906 FDSL_CLASS(R3) ; roune ste oo i field we are 
: n 
3 ig AA 11e0e BNEQ 60$ 3 if notsgo tind another, field. “e 
” ar AAD 11846 soar Pach atten atcha : pee that corresponds to the field 
AAD 1164 ; we ust foun divie 
55 4 QAAD 1164 CLRL R5 ; t up for extended div fe. poem! 
57 $6 54 08 03 a He EDIV #8, R4,R6,R7 ae. ree i, gets. the pit . oe 
: and loop. 
7 4 FR Abo 11658 ty aaa ; ede field descriptors. 
00000 . 11655 70$: BISL KEY_MSK, (R2) ; Set the . turn on 
= 34? 6 b0 vy 11038 998: ney #ss$ NORMAL ,RO 
AC6 13928 
OAC6 1165 


' 
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DAC 5 ~SBTTL - REMOVE _FIELD 


FUNCTIONAL DESCRIPTION: 


This routine ‘s used to remove a field from the display by clearing the 
bit correspond ng to the field in the bitmap for the current report. 
f the field being cleared is the last field being displayed ina 


I 

DAC pers cower class, then the class is turned off instead. If the class 
DAC eing turned off is the Cluster class, then update FIRST_DATA_LINE so 
Wy: that the scrolling region uses the full display. 
DAC g CALLING SEQUENCE: 

4 CALLS #0,REMOVE_FIELD 

i CALLED_BY: 

f READ_W_PROMPT 

7 INPUTS 


KEY_OFF = Address of longword in the bitmap that contains the bit 
corresponding to the field selected. 
KEY_MSK = Mask of the bit within KEY_OFF corresponding to the field. 
OUTPUTS: 


Bit corresponding to the field cleared in the bitmap, or bit 
corresponding to the class cleared at CLASS_SELECT. 


; RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 
REGISTER USAGE: 
R2 - Potats to the address containing the bit corresponding to the 


OOO OOOO O00 000009000000 00 000000 


ENTRY REMOVE, FIELD, *HcR2.R3.RE> 
CALLS ~ #0,LOOKUP_FIELD Check for valid field name. 
Branch on error. 


wes address of longword containing 
e 


00000B3A° EF fe 
E 


7 p 
52 oo000ses'eF dO MOVL KEY_OFF ,R2 


DB VOOOOAOOOOOOOOOOOOOOOOAAOAOOOOAOOOO 
CSOOCoooooo 


DEAR 29S OD NAUE WN 9 OO NAME WIN 9 OD NAME WO OONAULS WN) 0O 00 We 
o 7 . . . . . 
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53 0000054B°EF 00 4 MOVL KEY_DOSCR,R3 : be ee address of the descriptor 
: for the field. 
58 00002268'EF 00 E MOVL BITMAP_ADRS,R8 ; Get the address of the field 
; $ Coser ipter bitmap for the current 
: repor 
800 270°EF D4 E 1 CLRL START BIT 3 Set up for FIND perey 
6C°EF D4 OAE 1 CLRL H_SCROLL_LINE ; Make sure that Tields scrolled off 
F 1 3 _the screen are also gheched. 
00. =«€1 F 1 BBC #RPTSV_CLSTR,=- 3; Branch if we're not displaying the 
09 F508 cf DAF 1 CURRENT REPORT, 20$ : cluster report. 
0000226C'EF 062 00 OAF 1 MOVL § #CLUSTER_MAP_LEN,MAP_LEN; Save length of cluster bitmap. 
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= REMOVE _FIELD 4-S$ sats 9 33:32:08 LO TUTL SREDSHUCLSTR.MAR: 1 oe 333) 
7 1 B00 1171 Bee 308 ad to common code. 
0000226C ‘EF B02 11 i$ eps: MOVL #LOCAL_MAP_LEN,MAP_LEN ; Save Length of local bitmap. 
18 . B09 11 13 $: BSBW FIND _ERTRY ; Search for any field being displayed. 
15 50 BOC 1171 BLBC RO,4 3; Branch if none found. 
+5 Ba BOF 117 y CMPL FDS$L_CLASS(R10),- :; Is the class for the field we just 
C AS Bie 117 FDSL_CLASS(R3) : found the same es the field we are 
B14 117 § : _adding to the display? 
3 B14 117 BNEQ 308 3 If not go find another field. 
SA 5 318 11724 CMPL R3,R10 : Is it the gene field? 
rE BI 117 5 BEaL «=s«308 : If so go find another field. 
62 oo00es47" Et B16 11 § BICL KEY ASK, (R2) 3; Clear the bit, turn off the field. 
; a BRB .] : Branch to goanen code 
o¢ A B24 11 g 40$ BICL FOSL_CLASS(R3),- ; No other fields in this class found 
F4D? CF 307 117 CLASS SELECT i $0 turn off the class, not the field. 
BOA 11 BBC acs 7 CLUB,- : Did we just turn off the cluster 
07 OC A BOC 117 FD L_CCASS(R3) ,50$ ; class? 
eeeeeedl 8 BoF 11 MOVL #7, FIRST _DATA_LINE : If so, set first Line to be scrolled. 
0 01 $ 117 50s MOVL  #SS$_NORMAL,RO ; Return success. 
B39 11734 99$ RET 
BSA 11735 
BSA 11736 
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- SBTTL ° LOOKUP _FIELD 


FUNCTIONAL DESCRIPTION: | 
This routine is used to parse the field name by calling 

LIBSLOOKUP_KEY using each of the Sorwarg tables containing the field 
names. The keyword value is converted into an address and mask for the 
bit within the appropriate bitmap and the address of the descriptor for 
the field. 

CALLING SEQUENCE: 
CALLS #0,LOOKUP_FIELD 


CALLED BY: 


ADD _FIELD 
REMOVE _FIELD 
INPUTS: 
IMPLICIT INPUTS: 
Selected fieldname stored at address TPARSE BLK+TPASL_TOKENCNT. 
Address of keyword table stored at KEYTAB_ADRS. 
Address of bitmap stored at BITMAP_ADRS. 
Address of address table stored at ADRS_TABLE. 
OUTPUTS: 
KEY_OFF = Address of longword in the bitmap that contains the bit 
corresponding to the field selected. 
KEY_MSK = Mask of the bit within KEY_OFF correspendieg to the field. 
KEY_DSCR = Address of the field descriptor for the selected field. 
RETURN STATUS: 


SS$_NORMAL or failed status from LIBSLOOKUP_KEY returned in RO. 
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003C : eENTRY LOOKUP_FIELD,“M<R2,R3,R4,R5> 
Si SOO088Ce-Et Bee ROVE BitnapABns'nc | Get Sadrens of GYtmaps ‘*PLe- 
5 gai DO 0B4 MOVL ADRS. TABLE, RS : Get address of address table. 
re OF BS PUSHAL si 3; Push address to receive value. 
3 DD 0B5 PUSHL R 3; Push keyword table address. 
3 i Mutnalindet ot°ane' strings "0" *™ 
o0000sos omer OF B 8 PUSHAL TPARSE_BLK+TPASL TOKENCNE - 
‘GF 3 FB OB ; CALLS #3,G*LTBSLOOKUP_REY : Check tor valid field name in the 
: : current report. 
20 50 =—««éE8 6 1 BLBS RO, 308 3; Branch if field name is valid in the 
+4 § : 3; current report. 
B69 11794 : If the field lookup fails, then determine if it is a valid field name, 


ee a —_-— 
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v04 = LOOKUP-FIELD trSEER SRS 83:32:09 FOUTS Race VOt 00 uan.1 200 933, 
11795 ; but sim can't be displayed in the current report. If so, th a 
ie : the Sate tonst BBA ye to the user. 2 wisn 
00 e1 11798 ° BBC #RPTSV_CLSTR ; Branch if we're not displaying th 
08 £492. ¢ 11998 CURRENT REPORT, 108 i cluster report. are 
0 EF OF F i 9 PUSHAL COCAL JKEYT : viable. field in’ the LOCAL keyword 
00000 ee uF 3 14 g 10$ SO eHAL Pere YTAB iy thee *. t valid cone id 
: c or a " 
noone ggges "EE DE 0870 11804 a TRARSE BC ESTPASL TOKENCNE . es 
: 11805 CALLS *LTBSLOOKUP_REY : Check for valid field name. 
rH E A 11 $ BLBC : Bran h on erro 
50 4 99 a0 1 nowt # a OAVAIL,RO ; ett € eet ov “available in this report’. 
; Exit w 
52 cae 4 36 8 09 30$: oot Nypiyary 3; Get the leeuerd value in R2,R3. 
3S 8 SS 0 78 oF 11 9 EDIV #32,R2,R2,R3 ; Convert the keyword value into an 
A& 11 \¢ : offset into a field bitmap. 
AS 1181 : a gets the apnenerd offset, 
AS 11814 : RS gets the bit offset. 
00000543"EF 6442 ODE A& 11815 MOVAL (R4)CR2],KEY_OFF ; oes Sadress of longword consaining 
ry: i 18 . 3; the bit and store in KEY_OFF 
ey i i : Convert the bit position in R3 to a mask. 
54 01 pO OBAC 11820 * MOVL  #1,R4 ; Start with mask for bit 0. 
00000547°EF 54 53 78 et 11821 ASHL R3,R4,KEY_MSK 3 Shift left by wuaber a bits in R3 
pes? 1 § 3 and save in KEY_M 
54 0000055 ° EF 00 OBB7 11824 MOVL KEY_VAL,R4 
OO0O00S4B°EF 6544 D0 OBBE 11825 MOVL (RSTCRGS,KEY_DSCR 3; Get address of field descriptor for 
OBC6 11826 3; _this keyword and save in KEY_DSCR. 
50 01 00 OBC6 11827 MOVL #SS$_NORMAL ,RO ; Indicate success. 
04 OBC9 11828 RET 
OBCA 11829 
OBCA 11830 


~o 
oO 
wr 


a 


vectors. 

Jump to common code. 

Get the number of local keyword 
vectors 

Get the number of fields te check. 
Dividend must be a quadwo 


15$ 
10$:  MOVL LOCAL_KEYTAB,RS 
ASHL = #1, RS RS 


07 
55 00000000°EF 00 
Ss we er 78 


EDIV #32, ROR AR R10 Ealcatase the number of bits left to 
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CA 11 -SBTTL - ADD_ALL_F 
Sth 1 § 00 ALL FIELDS | 
+A 1 5 : FUNCTIONAL DESCRIPTION: 
CA 11 $ : This routine is used to turn on all the fields in a particular class | 
475 1 8 : when the /ALL qualifier is used with the ADD class-name command. 
BCA 1 40 : CALLING SEQUENCE: 
BCA 1 4g ; BRB ADD_ALL_FIELDS 
cA i a4 : CALLED BY: 
BCA 11846 ; READ_W_PROMPT 
Bek HS | anruts 
OBCA 11850 ; Class selec* bit for the class to have all fields turned on at 
47) 1 2) : TPARSE _BLK+TPASL_ PARAM. 
OBCA 1 38 : OUTPUTS: 
tere i 22 ; tek. corresponding to the the fields in the selected class set in the 
OBCA 11 35 : Bit corresponding to the selected class set at CLASS_SELECT. 
OBCA 11858 ; 
OBCA 11859 ; 
BEA Hg? Fo 
06E0 CA 11 66 eENTRY ADD_ALL_FIELDS,“M<R5,R6,R7,R9, R10> 
00000C2D"EF 00 FB 2655 i 63 CALCS #0, INCLUDE_CLASS ; Make gure the class is add to the 
a 
56 00002264°EF 00 ch 1 o? MOVL ADRS_TABLE ,R6 Get “the: egeress of ye dh. address table 
or the fie escr 
57 00002268'EF 00 A 11 6 MOVL BITMAP_ADRS,R7 Get the address of field deecripter 
1 11868 bitmap for the current report. 
59 01 400 1 11869 MOVL Start with bit 
E1 4 11870 BBC ore rey Branch if we’ Se not displaying the 
09 F 6 11871 eOOuENT ChEPORT, 10$ cluster report. 
55 00000000" EF dO . 1 § MOVL CLUSTER_KEYTAB, *R5 Get the number .. cluster keyword 
1 11874 
3 11875 
A 11 § 
A 11 
F 11 
111 
6 11880 
Ht 
11888 
11884 
11886 
11 $ 
11888 
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00009090000 60 Gp 09 Co C9 C9 G9 0d CD Cd CO G9 CD 


Coco 006060000000 08 SINISE 


C 
C SUBL3 R11 scan in the Longwe d. 
59 9 € COA FFC R9 R10. fi RO Scan for a clear bit. 
33 t COF BEQLU Nog not, scan next longword. 
55 D1 OC11 CMPL R9,RS Have we checked all fields? 
16 «13 ¢ 4 BEaL §«=s«99f Branch if so. 
5A 6649 00 $ é 208 MOVL (R6)CR9I,R10 § et thes address of the field 
3; descr 
OC AA D3 OCIA BITL FDSL_CLASS(R10),- ; Is the Ried in the desired class? 


such 


000004E7° 
00 67 


att 

Cc 
i | 
at 
5D 4 


| 
RB 
RET 


RSE SE $8:38:57 LOLOL. SR 


PARSE_BLK+TPASL_PARAM 


san .as 


168 


v04-00 
HWCLSTR.MAR;1 


find another field. 


Get number 


° 
; Loop for all fie 


f not go 
; Otherwise, turn on the field. 
f next bit to test. 


lds. 


Bit corresponding to the desired class set at CLASS_SELECT. 
RETURN STATUS: 


SS$_NORMAL if class can be added to the current report, otherwise 
SHOOS_CACLS if the class can't be added to the current report. 


SOooooo 


ee 

SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: ‘AX/VMS Macro v04-00 Pa 
voe<00 =" INCLUDE CLASS | taSEb=1Sbe S8i2cs08 LERIUTE Meese Ore Oe ua. Page? 

C2D 1189 -SBTTL - INCLUDE_CLASS 

; 1 3+ 

¢ ; FUNCTIONAL DESCRIPTION: 

C 1 : This routine is used to add a class to the display. It oiarly sets the 

: i ¢ : Sit that corresponds to the desired class in location CLASS_SELECT. 

CoD 119 ; CALLING SEQUENCE: 

c 3 CALLS #0, INCLUDE_CLASS 

¢ ; CALLED BY: 

C 12: READ_W_PROMPT 

: ; ; ADD_ALC_FIELDS 

¢ > INPUTS: 

¢ : Mask of the bit to be set at address TPARSE_BLK+TPASL_PARAM. 

: 19 : OUTPUTS: 

C ; 

C ; 

C : 

C : 

C ; 

C é 

C : 
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Sooooooeo 
AON 


0000 ENTRY INCLUDE_CLASS,“M<> 
E1 BBC #RPTSV_CLSTR,- : Branch if we're not displaying the 
OF F3CC CURRENT REPORT, 10$ ; cluster report. 
90000189 b3 BITL  #CLSSM_CPRT'CLSSM_ERR,- : Is the desired class in the 
000004E7° TPARSE_BLK+TPASL_PARAM ; LOCAL_PORTS report? 
BNEQ 98$ 3: Error Tf so. 
BRB 20$ ; Branch to common code. 


10$: BITL #CLSSM_ANY_CLUS,- : Is the desired class in the CLUSTER 
TRARSE _BLRFTPASL_PARAM ; report? 


; Error if so. 


208: BISL TPARSE _BLK+TPASL_PARAM,-; Set the bit corresponding to the 
CLASS SELECT ; desired class. 
; Branch if desired class isn't 
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"i 
€1 4 BBC #CLS$V_CLUB,- 3 
000004E7° F 4 TPARSE BLK +fPASL_PARAM,; CLUSTER 
eoeeses"Gs . D 4 MOVL #14, FIRST _DATA_LINE 3; Set first line to be scrolled. 
0 Dd 49 308 MOVL BSS NORMAL ,RO : Indicate success. 
ae BRB 99% ; Branch to common exit. 
000004A9 "EF OS°EF OD 98$: MOVAL TKN _DSCR,ERR_MSGVEC+12 ; Save descriptor for class name. 
5 $0008000" SF o6 908: move #sHOw “CACLS7R ; “Can't add the class to this report’ 
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-ENTRY EXCLUDE_CLASS,“M<> 


#RPTSV_CLSTR,- 
CURRENT REPORT, 10$ 

#CLSSM_CPRT'CLSSM_ERR,- 
TPARSE _BLK+TPASL_PARAA 


208 


#CLSSM_ANY_CLUS,- 
TPARSE “BLK*TPASL_PARAM 


TPARSE_BLK+TPASL_PARAM, =; 
CLASS SELECT : 
#CLS$0_CLUB,- ; 
TPARSE-BLK+fPASL_PARAM,-: 
#7 FIRST DATA_LINE : 
#S$8_NORRAL RO ; 


TKN_DSCR,ERR_MSGVEC#12 ; 
#SHOWS_CACLSTR 


clears the bit that corresponds to the desired class in location 


Mask of the bit to be cleared at address TPARSE_BLK*+TPASL_PARAM. 


Bit corresponding to the desired class cleared at CLASS_SELECT. 


removed from the current report, otherwise 
can't be removrd from the current report. 


- EXCLUDE_CLASS 
1960 : 

1 3 

1 5 

! 3 

i ; CLASS_SELECT. 

19 3 CALLING SEQUENCE: 

196 ; CALLS #0,EXCLUDE_CLASS 
1971 : CALLED BY: 

1376 3 

973 : READ_W_PROMPT 

376 : INPUTS 

376 : ‘ 

977 ; 

978 ; 

44 ; OUTPUTS: 

4 ; 

3 : RETURN STATUS: 

9 ; SS$_NORMAL if class can be 
2 3 SHOOS_CRCLS if the class 
988 -- 

9 


Branch if we're not displaying the 
cluster report. 

Is the desired class in the 
LOCAL_PORTS report? 

Error Tf so. 

Branch to common code. 


: Is the desired class in the CLUSTER 


report 


; Error if so. 


Clear the bit corresponding to the 
Cos treg pes b 

Branch if desired class isn't 
CLUSTER 


Set first Line to be scrolled. 
Indicate success. 


3; Branch to common exit. 


Save descriptor for class name. 


3 mepyne we can't remove the class from 
this report. 
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; ; FUNCTIONAL DESCRIPTION: 
Z : This routine is used to remove a class from the display. It simply 
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FUNCTIONAL DESCRIPTION: 
tins oe te to the ID List for systems that will not 
CALLING SEQUENCE: 
CALLS #0,ADD_1D 
CALLED BY: 
READ_W_PROMPT 
INPUTS: 


TKN_DSCR Contains the descriptor for the string which specifies the 
ID of the system to add to the List. 


OUTPUTS: 


| 
i 
| 
| 
Six byte hex ID number is stored in the List of ID numbers for systems 
to be removed from the display. 
| 
| 
| 


The number of entries in the List is incremented (ID_COUNT). 
RETURN STATUS: 
SSS_NORMAL or failed status returned in RO. 


ENTRY ADD_1D,“M<> 


000006 see JSB CONVERT _10_WEX ; Convert system ID string to hex value. 
0 BLBC RO,98$ ; Branch on error. 
JB. Apb TO_LIST : Add the system ID to the List. 


98$: MOVL  #SHOWS_IVREMID,RO 


‘Can't remove system from the display” 
MOVAL  TKN_DSCR,ERR_MSGVEC+12 


; Save descriptor for class name. 
; Return with status. 


OO000DA0* EF 

12 50 

50 * BF 
000004A9° EF "EF 
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; Exit on success. 
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FUNCTIONAL DESCRIPTION: 
name, of ther apeten tor che syacents [ot and’ then adding the seten' e018 
to the ID list for systems that will not be included in the d splay. 
CALLING SEQUENCE: | 
CALLS #0,REM_NODE 
CALLED BY: | 
READ_W_PROMPT | 
INPUTS: | 


TKN_DSCR Contains the descriptor for the string which specifies the 
node name of the system to remove from the display. 


OUTPUTS: ~ 


Six byte hex 1D number is stored in the List of ID numbers for systems 
to be removed from the display. 


| 
The number of entries in the List is incremented (ID_COUNT). 
RETURN STATUS: | 
SS$_NORMAL or failed status returned in RO. 
| 

| 

| 

} 
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1 
1 
: en 
0000 : : -ENTRY REM_NODE,“M<> 
OOO000DSB*EF 16 1 JSB F IND_NODE : Find the ID of the system that 
; 3 coresponds to the specified node 
> name. 
09 50 9 1 } BLBC RO,98$ 3; Branch if not found. 
00000040" EF 4 D07 121 9 10$: JSB Ap 1O_LIST : Add the system ID to the List. 
07 50 =«¢€ 1} BLBS RO,99 3 Exit on success. 
50 00000000°8F 00 4 11§ 98$: MOVL #SHOWS_IVREMNODE ,RO ; indicate specified system can not be 
OD 3 remov 
04 0D! 115 99$: RET 3 Return with status. 
HH} 118 
0D1 11 
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FUNCTIONAL DESCRIPTION: 


This routine removes odds @ system to the display by removing it's 
a dele the ID List of systems that will not be included in 


ee ee 


UENO OONAUSE 


CALLING SEQUENCE: 
CALLS #0,REM_ID 
CALLED BY: 
READ_W_PROMPT 
INPUTS: 


| 
| 
| 
TKN_DSCR Contains the descriptor for the string which specifies the 
ID of the system to remove from the List. 
} 
| 
| 
| 
| 


OUTPUTS: 


The six byte hex ID number stored in the List of ID numbers for systems 
to be removed from the display is cleared. 


The number of entries in the List is decremented (ID_COUNT). 
RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. 


SPEER PERE EE 
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ENTRY REM_ID,*M<> 


a me ed at at ed a ds 8 a = td 3 2 2 a as 4 


2 P 0009 0909 09.09 09 CD 9 Cd Od 00 CD OD 0D CD CD CD GD OD 09 0D CD. 0D 0D 09.09 00 09 00 0D 0D CD. CD CD CDCD0D 
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JSB CONVERT _10_WEX 3; Convert system ID string to hex value. 


aa a a ed a ad ed ds 2 — 4 8 = 2 = = = — — = 8 1 2 


OQOOOOESC*EF 1 
09 4 3 5 BLBC ‘ 3; Branch on error. 
OOOOODF E * EF 6 ° JSB REMOVE _FROM_LIST 3 Bengug, toe gretes 1D from 
1 30 3; 9 ? BLBS ps Pa 3: Exit™on’ success. ¥ 
50 "BF OD f 98$: MOVL #SHOWS_IVADDID,RO 3; “Can't add eysteg to the dt eptay 
0000049" EF "EF DE MOVAL TKN_DSCR,ERR_MSGVEC+12 ; Save descrip or for system ID. 
99$: RET ; Return with status. 
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FUNCTIONAL DESCRIPTION: 


This routi 
name speci 
from the ID | 


CALLING SEQUENCE: 


CALLS 


CALLED BY: 
READ_W_ PROMPT 
INPUTS: 


TKN_DSCR Contains the descriptor for the strin 
node name of the system to remove from the Li 


OUTPUTS: 


The six byte hex ID number stored in the List of ID numbers for systems 
to be removed from the display is cleared. 


The number of entries in the list is decremented (ID_COUNT). 
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RETURN STATUS: 


RO = 


eENTRY ADD_NODE ,“M<> 


JSB 
BLBC 
JSB 


BLBS 
MOVL 


RET 


stem to the display b 
e system ID and remov 
t for systems that will not be included in the display. 


ng which specifies the 


RMAL 
VADDNODE if node is unknown or already being displayed. 


; Find the 1D of the system that 
coresponds to the specified node 


; _name. 
: Branch if not found. 

; Remove the system ID from the List of 
systems reneves from the display. 
Tiles node can tat be 


ed. 
; Return with status. 


RO,98$ 
REMOVE _FROM_LIST 


RO,998 ; E 
#SHOWS_IVADDNODE ,RO ; Indicate spec 
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FUNCTIONAL DESCRIPTION: 
This routine is used to convert the node name specified by the 
REMOVE or ADD SYSTEMS/NODE= commands into a system ID. The 
syetes blocks in SB buffer are scanned for a node name equal to 
the node name specified. If a match is found, then the system 
ID of the match ng system block is taken from the system block 
and stored in ID_RESULT. The system ID can then be used to add 
or remove the system ID from SYS_ID_LIST. 

CALLING SEQUENCE: 
JSB F IND_NODE 

CALLED BY: 


REM_NODE 
ADD ~NODE 


INPUTS: 
TKN_DSCR contains a descriptor for the node name string specified. 
OUTPUTS: 
System ID for the node specified stored in ID_RESULT. 
RETURN STATUS: 
RO = SSS_NORMAL if a system block and system ID were found that match 
ro = O'if'not found. 
REGISTER USAGE: 
R¢ - Used by CMPC. 


- Used by CMPC. 
R10 - Points to the base of a system block in SB buffer. 


PAAR MAAN AAAI ES BS BS BS BS BS AANA AAAI IIOPINININININD 


API = S OOD NANNY SO OOD NAUNL WN OC OD NAULS WN OOD NAUE WP 


F IND_NODE : 
PUSHR #*M<R2,R3,R10> 
MOVL VAR_BUF R10 


malesteTesteTestetefestefotetefeteteteteteteTetetetefetefetetedetedeteleteteteleLeeleTetetesteteslesTestes] S 


FUPVIUIVIUPUSUIUSUSUSUSUSUSUSU SUSU SUSU SUSUSUSIASISIUSUSI SIS ASIASIASIASUSIASIOSIOSIOSIASIOSD 
a a a kk a ad tk a a a = = = 8 1 1 1 st sD 


SA O0000SED"EF BO 


; Get the address of the system block 
; buffer 


SNS NNN INIA OOOO 


BNA USUI OOONAU 


00000495'EF 91 10$: CAPB TKN_DSCR,- 3 Is the number of characters specified 
44 AA 6C SBST_NODENAME (R10) ; the same ag the Length of the node 
6E 3 name in this system block? 
OF 12 2 BNEQ 208 3 if not this can’t be the right system 
3 ock. 
00000499 ' FF 00000695 "Er eg 7 CMPC3 TKN_DSCR,@TKN_DSCR+4,- ; Compare the nogenene specified with 
45 AA 78 SBST_NODENAME #1 (R10) $ the nodename in the system block. 
0 13 7D BEQL $ ; Branch if they're the same. 


SHWC er Utilit 15-SEP=1 2: X/VMS Macro v04-00 Pa 7 
v04 NODE , 4-SEP-19 198 $3: 32: 88 LUT SRCIJSHWCLSTR.MAR; 1 oe 46 

443 } MOVL (R10) ,R10 Aw address of the next system 

D } BNEQ $ Loop of there's more SB‘ 

CLRL 

D § $856. SYSTEMID(R10),- ; Store the system ID for the matching 

D 1D VRESULT system block in ID_RESULT. 

4 ! Te es S888 _SYSTEMID+4(R10) ,- 

p98 1 MOTL #s3$ NORMAL ,RO Indicate success. 

D9B 1 POPR #*M<R2,R3,R10> 

DOF 1 RSB 

+ 1 

DAO 1 


; re se, ~ cate fa lure, 
ll 3 $ 3 _and return with error status. 


"7 
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ODAd 1 : ~SBTTL - ADD_TO_LIST 
DAQ 1 
BAD 19509 3 | 
DAd | g > FUNCTIONAL DESCRIPTION: | 
DAO 1 6 ; The routine disables a system from being displayed by adding it's 
DAO 1 $ . stem / . oe List of systems not to be displayed. It searches 
DAO 1 § 3 e list ee LIST 9 make sure that the system id is not 
DAO 1 3 already. = the f st. it isn't, then it inserts the system ID 
- ! ¢ $ n the first empty we Ad 
DA 8 ; CALLING SEQUENCE: 
DA 1 : ; JSB ADD_TO_LIST 
DA | 19 : CALLED BY: 
$A oo a 
DA 18 ; REM~NODE 
0 A 15 > INPUTS: 
BpAD ' Hi ; ove. isles. contains a List of system ID's for systems removed from 
3 e dis 
ODAO 1 i 3 ID RESULT ¢ contains the ID of the system to remove add to the List. 
= : y ; ID_COUNT contains the number of system entered in the List. 
DAD 2 ; OUTPUTS: 
DAO 12324 : System ID for entered in SYS_ID_LIST. 
es ' > ‘ COUNT updated. 
8 ; : RETURN STATUS: 
ODAO 12329 : RO = S$S$_NORMAL or failed status if the entry is already in the 
ae ' 3 , 3 Listor if there is no more room in the List. 
3A : : REGISTER USAGE: 
DAO 12334 : R2 = Used as an index for compariye ip ae six bytes of the system ID. 
DAO 12335 ; R4 = Used as a pointer into t IST. 
DAO 1 3 RS = Used to count down the total xoubse = possible entries. 
- \ 3 R6 - Used to save the address of the first empty entry found. 
BAO Y $ a 
DAO 1 ty ADD_TO_LIST: 
0074 8F BB ODAO 1 4g PUSHR #*M<R2,R4,R5,R6> 
0 D4& ODAS 1254 CLRL 3; Assume failure. 
54 socczere"y’ D DA6 12344 MOVAL SYS_ID_LIST.R4 : Get the address of the List. 
D DAD 12345 CLAL R 3; Assume no empty ent 4 
1 D DAF 1 rf} MOVL #1D_LIST_ENTRYS,R5S ; Get the nusser ha entries to search. 
§ 0 ry) DB2 1234 MOVL ; R2 = word inde 
64 O00022DC°EF 0D oe? ' rt} 10$ CMPL ID_RESULT, (R4) : Compare the spec itied result with 
OA 12 ODBC 12350 BNEQ 208 : Branch if no match. 
| 


N 7 
SHWCLSTR Show Cluster Utilit 15-SEP-19 :52:08 VAX/VMS Macro v04-00 Page 269 
y04s000 = ADD_TO_LIST ' Fatt} 33:32 ‘Of CLIUTL.S RCISHWCLSTR.MAR: 1 . (933) 
6442 ar 5 DB } 1 CMPW fp RESULT+#4, (R4)CR2] : Compare all 6 byt 
tans 43 ! § BEQL 9$ : Branch tt the he + ID is already in 
56 DS ODC8 12354 208 TSTL = RB + Have we saved the address of the 
DCA 12355 : enoty 99 gntry in R6? 
0 1 DCA 1 § BNEQ 30$ 3; Branc 
8 dD pcc 1 TSTL {Re 3; Is a3 Talos empty? 
1 DCE 1 8 BNEQ 0$ 3; Branch if not. 
644 B DDO 1 TSTW (R4)CR2] 3: Check all y byt 
9 1 DDS 12360 BNEQ 30$ : Branch if entry "tee" t empty. 
56 46 oO DDS 1236 MOVL R4,R6 3; Save the address of the Gapity entry. 
54 96 C DDS 1 ? 30$ ADOL H hy 3; Point to next entry. 
D7 F DDB 1 SOBGTR R5,10$ 3 Loop for entire List 
36 be DDE 12364 TSTL 88 3: Did we find an Al... entry. 
1 1 DEO 12365 BEQL 99% 3 oneh if not. 
86 £0008 +H DO ODE2 1 96 MOVL ID_RESULT, (R6)+ 3; Otherwise, save the system ID in the 
66 QOO022EO'EF B80 ODED 1236 MOVW ID_RESULT+4, (R6) : st. 
OO22D8'EF D6 +8 ! rt INCL ID_ COUNT : Increase count of entries in the 
3 st. 
50 01 Bore 1 % MOVL #SS$_NORMAL ,RO 3 Indicate success. 
BF ODF9 12371 99S POPR #°M<R2,R4,R5,R6> 
ODFD 1 if RSB 
ODFE 1237 
ODFE 12374 
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++ 
FUNCTIONAL DESCRIPTION: 
This routine clears the entry for a system in the ID List of systems | 
that are not to be included in the display thereby adding the system 
to the display. 
CALLING SEQUENCE: 
JSB REMOVE _FROM_LIST 
CALLED BY: 
ADD_NODE 
INPUTS: 
ID_RESULT contains the system ID to match. 
Co tete a list of system ID's for systems removed from 
iD. COUNT contains the number of entries in the List. | 
OUTPUTS: | 
ee ee coresponding to the the system ID specified | 
The number of entries in the List stored at ID_COUNT is decremented. 
RETURN STATUS: | 
RO = SSS$_NORMAL or failed status if entry wasn't found. | 
REGISTER USAGE: | 
| 
| 


R4 Contains the address of the entry as returned from the 
FIND_SYS_ID routine. 
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REMOVE _FROM_LIST: 
PUSAR 


(R 
DECL 1D_ COUNT 
99$: POPR #*M<R4> 


: Decrease number of entries in the 


00000E16"EF fe FIND evS ID Is th t in the List? 
3 e entry in the ? 
OA § BLBC RO Sos : Branch if nat. 
84 CLRL (R4)+ ; Zero out the entry. 
CLRW 4) 3; ALL six bytes. 


rs 
SS SERS 
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: .SBTTL - FIND_SYS_ID 


FUNCTIONAL DESCRIPTION: 
This routine locates a system ID in the ID List. 


ca 
+ 


CALLING SEQUENCE: 
JSB FIND_SYS_ID 
CALLED BY: 


FU OODNAUS 


PPPS PUN 


rs 


REM_ID 
CHECK_ID 
INPUTS: 
ID_RESULT contains the fysses ID to match. 


PS I IIIT YY 


2 
50 
3] 
3g SYS_ID_LIST contains a List of system ID's. 
3 ID_COUNT contains the number of entries in the List. 
2$ OUTPUTS: 
33 Address of entry returned in R4. 
$9 RETURN STATUS: 
6 RO = SSS_NORMAL if the system JD is in the List. 
oe REGISTER USAGE: 
te? 
468 FIND_SYS_ID: 
BB 4 PUSHR #*M<R2,R3> 
D4 470 CLRL 3; Assume failure. 
a st 46 D 471 MOVAL SYS_ID_LIST,R4 : Get the address of the List. 
000022D8"EF 0D of¢ MOVL 10_COURT,R3 3: Get the number of entries in the List. 
Ba 47 BEQL 99h 3; Branch if List is empty. 
38 2 oO 474 MOVL #2,R2 3; Index = word. 
O00022DC*EF 01 $23 10$: CMPL ID_RESULT, (R4) 3 pene ths entry match the designated 
OF 12 099 BNEQ 208 S Branch 1 not. 
000022E0'EF ° $78 CMPW RESULT+#4, (R4)CR2) 3; Check all six bytes. | 
5 47 BNEQ : Branch if no match. | 
50 . ¢ 4 9 MOVL 8338 NORMAL .RO 3 Indicate success. 
ee ¢ 20$ Perl Pre) : ie the entry empty? | 
BA 4 j J BNEQ 0$ : Branch if nt. ” 
ar 8 484 TSTW (R4)CR2) ; Check all six bytes. 
9? 485 BNEQ 30$ : Branch if not empty. | 
54 f 4 ADDL * RG : Point to next entry. 
BA 4 BRB 10$ : Loop if empty entry. 
54 co 488 30$: ADDL #6,R4 3; Point to next entry. | 
| 
| 


dD 8 
i ean "TSEe=H9ke SSzRE58F LETLUTE.SRESSMecstR.mans1 8° 928, 


8 SOBGTR R3,10$ ; gt: Ped all valid entries in the 
91 998: POPR #*M<R2,R3> 4 é 

3 RSB 
9 
94 
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% .SBTTL - CONVERT_TO_HEX 
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+ 


| 
| 
| 
FUNCTIONAL DESCRIPTION: 
This routine converts the system ID string at TKN_DSCR to a six | 
byte hex value and stores the value at ID_RESULT. 
CALLING SEQUENCE: | 
JSB8 CONVERT_TO_HEX 
CALLED BY: 
ADD=1D 
INPUTS: 
TKN_DSCR contains a descriptor for the system ID string. 
OUTPUTS: 
ID_RESULT contains the system ID. 
RETURN STATUS: 
SS$_NORMAL or failed status returned in RO. | 
REGISTER USAGE: | 


BOOM AOMMAOOOAQAAOAAOOAAOAAAAAAAAAAAAAAAAAAAAAOOO WH 


-ENABL LSB 
CONVERT_TO_HEX: 
O7FC 8F PUSHR #*M<R2,R3,R4,R5,R6,R7,RB,R9,RI0> 
0 CLAL 3; Assume failure. 
52 00000129°EF MOVAL SBSB_SYSTEMID_DSCR,R2 Get the address of the field 
descriptor for the system ID. 
02 05 A2 CMPB FDSB_FORMAT(R2) , #HEX Is the Syston ID being displayed in 
mal? 


BNEQU DECIMAL. ID 
CMPU 


; Branch if not 
TKN_DSCR,#12 


; Are there more than 12 digits in the 


; _hexide 
: system ID string that was specified? 


JGTRU 99% ; Error if so. 
: Convert the string into a 6 byte hex number. 
, PUSHL #6 : Six byte result. 
PUSHAL ID_RESULT 3; Address to receive result. 
PUSHAL TKR_DSCR 3 String descr te ‘ 
CALLS #3,G*OTSSCVT_TZ_L : Convert the str nq. 
BRi ; Jump to common code. 


Re eee eee rr rrr rere 
PAAR EERE EE PAA AAAI 2 - 2 


RO ODNOA NE @ OODNANE WIN @ OOD NOAU EWN OO OONOUS WHO 


! 


F 8 
cht TOLWEX. "TSEPASRS SSiREi8F ETTUTE.SRESS Met Ste .manss P88 CH6)_ 


52 00000495'EF 
55 ene ' th Get the address of the string. 
14 2 Are there more that twenty digits in 
the string? 
Error if so. 
Multiply number of digits by 8 to get 
quadword index. 
Get fhe address of the end of the 


MOVL TSM BaCReS RS | 
| 
| 

Get the address of the first quadword | 
! 
| 


CMPL 


JGTRU $ 
ROTL 73°R2,R3 


MOVAL DEC_TAB_END,R4 


53 52.—Sis« 
54 0000056A°EF 


SN IOO 


: ! 3 DECIMAL_ID: 
1 ; 
4 ! 3 Convert the decimal string to a six byte hex number. | 
1 : 
3 1 MOVZWL TKN_DSCR,R2 ; Get fhe number of digits in the 
9A 1 strin 
9A 1 
Al 1 
Ag 1 
Ag 1 
Ag 1 
AD 1 
Be Sec imal of 
ecimal conversion table. 
54 53 EB4 1 SUBL R3,R4 
87 1 in the table to use for conversion. 
44 oor er B7 1 CLRL ID_RESULT Clear the result of conversion. 
EO'EF 443 1 CLRL ID_RESULT+4 
? C3 1 10$ mova (R&)+,R6 Get the quadword. 
SS ¢ 0 C6 1 SUBB3) «=. #* X30, (R5) ,R3 Convert the ascii digit to decimal. 
CA 1 BEQLU 40% Ignore if digit is zero. 
cf 1 JLSSU 998 Branch if not valid decimal number. 
09 3 p11 CMPB 83 ng Check high Limit. 
8 eS } Bctru 99% Branch if not valid decimal number. 
D6 1 3 eatery the quadword in R6,R7 by the byte in R3 and add the result to | 
' 3 ID RESULT. 
3 2 D6 1 MOVZBL R3,R3 :; Convert byte to longword. 
58 00 6 D9 1 EMUL R3,R6,40,R8 : Rultiply ow longword. 
g DE 1 BGEG =. 208 : Branch if result is positive. 
59 : \ ADDL R3,R9 3 egseretes, compensate for unsighned | 
Py as. ! 
59 59 S7 53 —3 1 : $s EMUL R3,R7,R9, RI 3 Multiply high longword. 
9000g20¢ EF ‘ £8 1 O$: ADDL R8,1D_RESULT : Add the resulting quadword to 
000022E0' EF 9 EF 1 ADWC R9, ID-RESULT+4 ; _ID_RESULT. | 
5 Fé 12591 40$: INCL ; Point to next byte of string. 
c8 52 FB 1 SOBGTR R2,10$ 3 Loop for all digits in the string. | 
50 6«(01 4 : 82 MOVL #S$$_NORMAL RO : Indicate success. | 
O7FC 8F FE 12595 99%: POPR #*A<R2,R3,R4,R5,R6,R7,RB,RO,RI0> 
1 38 RSB 
} 9 DSABL LSB 
15899 | 
12600 | 


6 8 | 
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3 .SBTTL - SET_WIDTH 


SHWCLSTR Show 
v04 - 


So 
+ 
a 


FUNCTIONAL DESCRIPTION: 


This routine is used to change the number of columns used by a 
fers’ ular field. It changes the value in the field descriptor at 
ocation FDOSB_FIELD_SIZE after checking that the desired width does not 


} exceed the minimum Or maximum values for the field. | 

! CALLING SEQUENCE: 

! CALLS #0,SET_WIDTH | 

! CALLED BY: | 

1 READ_W_PROMPT | 
INPUTS: 


Address of the field descriptor for the selected field stored in 
KEY_DSCR. 


OUTPUTS: 


Value at location VALUE stored a 
descriptor for the selected fiel 


| 
RETURN STATUS: | 
SS$_NORMAL or failed status returned in RO. | 
REGISTER USAGE: | 
| 

| 

| 

| 


Desired width stored at location VALUE. 


offset FDSB_FIELD_SIZE in the field 


R4 - Points to the base address of the field descriptor for the 
selected field. 


SONA MNE WI SO ONAN WN "CO OONOUS UNO 


DPDPDPDPE DDD DDD DD DDD PPP PPP PAPA AAP AA AA AAA AAA AAA OO 


ress 


1 
at * 4 -ENTRY SET_WIDTH, “M<R4> 
54 0000054B'EF p 64 MOVE —KEY_DSCR,R4 : Get the field descriptor address. 
0000054F "EF 1 644 CMPB VALUE 3: Is the desired size smaller than the 
01 A4 ot? 4 3 -MIN_FLD_SIZE(R4) 3 minimum allowed for this field? 
> $ BLSSU _: 108 ; Branch if so. 
S4F°EF 91 64 CMPB ye ee : Is the desired size larger than the 
03 A4 $68 43 B_MAX_FLD_SIZE(R4) 3: maximum allowed for this field? 
OF 1A 64 BGTRU 208 : Branch if so. | 
OOOOOS4F°EF 90 6 MOvB yee - 3: Store the new field size. 
6 FOSB_FIELD_SIZE(R4) = 
A 11 ? BRB ; Jump to common code 
0144 90 10$:  MOVB FOSB_MIN FLD _SIZE(R4),- ; Store the minimum field size. | 
g% 4 Pose FIECD_STZECRA) 3 
11 5 BRB $ 3; Jump to common code 
03 a4 «90 $ 208 MOVB FDS$SB_MAX_FLD_SIZE(R4),- : Store the maximum field size. 
FDSB~FIECD_STZE(R4) : 
04 658 99$ RET 


voorboo" reer uibin’ Veit tty " "TEREECISEE SHSSESGR WATAUME SRSSEUOCCO8 maaan "27° AD, 
BFS 18868 | 
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3 .SBTTL - SET_FORMAT 
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aa 


FUNCTIONAL DESCRIPTION: 


This routine is used di ra the output format : 3 © port iculer field 
to decimal or penede cima t changes the value 

escriptor at locari on FD Format after checki that the current 
ormat not ascii or asc Cs ro” X_DATA_SIZE is set to the maximum 
number 2 columns rove I se 8 lay th - “data in the new format. This 
yous ts also gonperes with oN TITLE ize (the number of geerecsers 

n the field title) and the Larger oft tye is saved as the ma 

number of columns necessary to display thet eld (FDSB_MAX_FLD_ wee 


Note: This routine wilt return m. qrcer if the number of thet of 
data needed to d sey the f ied ha ‘or ond the format 
is being changed from hexadecimal to d This is because 
the vorney rans nee will not format a pat pe larger than a 
quadword in decimal. 

CALLING SEQUENCE: 

CALLS #0,SET_FORMAT 
CALLED BY: 

READ_W_PROMPT 
INPUTS: 


Desired format type stored at location TPARSE_BLK+TPASL_PARAM. 
oeergee oF the field descriptor for the selected field Stored in 


NOwn 


pe he 


So 


PPA AAAAAAAAAAAAA AO 


bt + tat tre teeters 4 


7 
VEU @OOONOAUEWN—O 


& 


AACAOSO 
wowovovond 


OUTPUTS: 


Value at location TPARSE_BLK+TPASL_PARAM stored at offset 
rose” FORMAT in the field descriptor for the selected field. 


Value at offset FDSB_MAX_DATA_SIZE in the field descriptor set to the 
maximum number of columnsS needed to display the data. 


Value at offset FDOSB_MAX_FLD_SIZE in the field descriptor set to the 
maximum number of columnS needed to display the field. 


RETURN STATUS: 
SSS_NORMAL or failed status returned in RO. 

REGISTER USAGE: 
R3 - Meed to fete the number of byte of SCS data needed to display 
R4 - Points fo, he base address of the field descriptor for the 


selected 
R5 - Pointer to data Length to number of columns conversion table. 


re 
em mm a ak a a a a a ak a ad a a od ss a a a a tt tt tt 


MEW =O 


yt ot 


SISO 


cae ed as a RS 


ONOULSWI—O 


J 8 
ange rcronmar UN'S '*Y "RSEP19Re SS:20:0F LOLIUTL. SRESSWMccstR.mans 72° C458) 


sENTRY SET_FORMAT,“M<R3,R4,R5> 
move KEY 


CRP TPARSE BLK+TPASL PARAM, =; 
FOSB_FORMA 


t the field descriptor address. 
s the format grreee set to the 
sdesired ty treet 
Return 
s the Hela” formated in ascii? 
rror if s 
. ae he field formated 9 ascii using 


NVUINO 


CMPB COIS FORMAT CRS) AASEES 
CMPB FOSB_FORMAT(R4) ,#ASCIC 


1 
re 12, 
F30 127 
is 1s ; 
F4 
F4B 127 § : 
fe8 127 : 
F51 127 ; ed ascii stri 
13° OFS] 127 $ BEQ 98$ ; arrer 7 aunt $0. = 
9A OFS3 127 ? MOVZBL FDSB_LENGTH(R4) ,R3 : Get the number of byt qs sof Ss S dete 
F57 127 3 Seiad to display ti 5 field 
91 : M ! f ; CMPB yeeese BLK+TPASL_PARAM, “3 Is the new format decimal? 
1 FSE 10734 BNEQ 1 : 8 Branch if no 
% re : 5 eae R3,48 : is he 30s "Ssie more that 8 bytes? 
; Error $0. 
43 re 127 MOVAL CVT EARLE .R5 : Point to conversion table. 
ro 12738 vB (RSTCR3J,< : Save the maximum number of columns 
44 : 44 FD$B_MAX_DATA_SIZE(R4) ; goatee a display the field in 
; dec 
11 OF71 12741 BRB 2 3; Jump to common code. 
81 OF73 1 reg 10$: ADDB3 e0* 3, : Sous the maximum number of columns 
4 : Se Fo$B_f -MAX_DATA_SIZE(R4) : peceee. fo ¢ display the. field in 
3 _hexadec 
90 4 ' oe? 20S: MOVB FDSB FORHATCRO) PARAM, “3 Set the new ~ type. 
91 OF8O 1274 CMPB ss FDSBMAX_DATA_SIZE(R4) i Are more columns required to dis play 
: } ee FOSB_ “TITCE SIZE(R4) ‘ oye, cate than to display the f eld 
1f OF 3 127 : BLSSU 308 ? Branch if no 
90 OF87 127 vB FOSB_MAX_DATA_SIZE(R4),-; Make the A, field size the same 
FBA 127 ¢ FD$B_MAX_FLD_SIZE(R4) as the maximum dat ta size. 
11 OF8C 127 BRB 99$ : Return with succes 
90 OF : 12754 30$ MOVB FOSB_TITLE_SIZE(R4).- ; Make the maximum field size the same 
F91 12755 FDSB- CD_SIZE(R4) ; .as the title size. 
11 OF93 1 P38 BRB 99$ : Return with success. 
7 a : f oes: abet RO 3; Indicate failure. 
r98 1 26 ; 
F98 12760 


k 8 
NTeRAL "RSE=1SES S3:38:57 YOCUTE.SRESSMuctstR.man:1 "89° 928, 
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e 
R 
: 1 a -SBTTL - SET_INTERVAL 
F98 1 ; 
: ! : FUNCTIONAL DESCRIPTION: 
F98 1 : : This routine converts the number of seconds ety entered in the SET 
3 1 768 ; INTERVAL command to binary time and stores it at location DELAY. 
r ? 3 CALLING SEQUENCE: 
£98 | ft ; CALLS #0,SET_INTERVAL 
3 at > CALLED BY: 
FB 1¢776 ; READ_W_PROMPT 
rg ! 78 : INPUTS: 
a4 } f , : Desired number of seconds stored at location VALUE. 
98 | 186 ? OUTPUTS: 
4. ! 4 r : Binary representation of desired interval stored at location DELAY. 
E98 12786 : RETURN STATUS: 
F98 12788 : SS$_NORMAL returned in RO. 
F98 12789 ; 
Sh erat i 
0000 £98 138 -ENTRY SET_INTERVAL,“M<> 
54F ‘EF yg st ergh C OFSA 12794 MOVZWL Hast 43 YALUE ; Make sure VALUE is a longword. 
54F °EF Aa 443 fl A 4a ! M2 EMUL #- 100600 »VALUE,#40,- ; Coavers the number of seconds to 
. 3 nar me. 
$5 01 DO OFB6 12797 MOVL #SS$_NORMAL ,RO : Return success. 
04 OFBI 12798 RET 3; Return with status. 
FBA 12799 
FBA 12800 


sah 


0050 8F 
00002222°EF 


30 01 
00000 ait + 
0050 8F 


FEES ay 00 


14E°EF 


5E 00002247°EF 
00002260° EF 


04 
18 
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» SBTTL 


FUNCTIONAL DESCRIPTION: 


lumns. If the desir width 


é 


set to 1 


header is redrawn. 
CALLING SEQUENCE: 

CALLS #0,SET_SCREEN 
CALLED BY: 


NIT 
MAIN_ERR 
READ-W_PROMPT 

INPUTS: 


OUTPUTS: 
IMPLICIT OUTPUTS: 


RETURN STATUS: 


Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Se Ge Se Se Se Sete Se Se Se Sete 
t aa 
iy 


ENTRY SET_SCREEN, “M<> 


MOVL §$ #SS$_NORMAL,RO 

CMPW =—- VALUE, #NARROW 

BGTRU 

CMPW © #NARROW, SCREEN_WIDTH 
JEQL «=: 99 

MOVW § #NARROW, SCREEN WIDTH 
BBC #OVT$V_OCRT,OUT DEV, 30S 
PUSHAL DCRT_NARROW. DSCR 

BBS #0VTSV_AVO,OUT_DEV,20$ 
MOVL #24,LAST_LINE 


CONAN WR OOO NAUL WN OOD NAME WIN | 9 OO VNAU EWN OO OONOULS U0 OO 


Ep=19b6 93:24:01 


SET_SCREEN 


coluigs. Oe the des red width 


SCREEN_WIDTH is set to 80 or 132. 


AX/VM cro V04- 
Chit L.S RCISHW HWCLSTR.MAR; 1 


r less than the screen is set to 
31 or greater than the screen is 


This veut tes sets hg wiéte of is°ab'or Les screen to 80 or 132 


if this routine ‘is not being called while initialization or exit is 
n progress and is being run on a video terminal than the display 
Desired screen width stored at location VALUE. 


Terminal is set to 80 or 132 column mode. 


SS$_NORMAL or failed status returned in RO. 


Assume success. 

Is the fe ree screen width > 80 ? 
Branch 

Is the terminal width already 80? 
Return 


get nimier of 


"teraina ("nto 8 


Branch nee Ro . a DECcrt with 
ae video o 

Save the number : — last Line 
(bottom command Line) on the 
terminal. 


olumns to 80. 

nal isn't a DECert. 
escriptor be set 

isa mode 


-SEP-1984 AX/VMS Macro ws ste Pa 1 
rive tt sneer staeen Celt tty RSEp19be S8:2c.07 FekiUie.seeisuucesse.mans1 29983) 
. #23,CM N 3 Save the number of the next-to-last 
O000225C°EF 17 DO i ; MOVL 23,CMD_LINE tine Cfop moor of fhe « nt-ton 
3: term 
00002258°EF 16 DO 1 1 3 MOVL #22, LAST_DATA_LINE 3; Save the number of the Last Line on 
! : ! o : saat terminal to be used to display 
3: da es 
47 11 100C 12865 BRB 208 $ ommon code. 

G0 gono2247"EF G0 EO IONE 12866 108: BBS ADVTSV,VTS2-0UT DEV.998 Branch if termingt is V152 t 
00002222°EF 0084 E ih 16 H cH an A peat ; Is the terminal width blreede PF $29 
00002222°EF 0084 8 80 10211 : MOVW guIDE SCREEN WIDTH : Set number of columns t 

. 1 A BBC #OVTSV_OCRT,OUT_DEV,99$ ; Branch if serntael 1 isn't a DECcr 
7 G6S05p7:8t EO : 7 BBS #OVTSVZAVO,OUT_BEV,15$ Branch i if DECcrt with eavenced vides 
00002260'EF OF DO 103A 1287 MOVL #14,LAST_LINE S Save the umber of the lect tine 
! r? ! a 3 cbottos connend Line) on the 
: terminal. 
O000225C"EF OD DO 1041 1287 MOVL #13,CMD_LINE ; Save the number of the next-to-last 
1048 ! : gone ose command Line) on the 
: termina 
00002258"EF OC 00 104 1287 MOVL #12,LAST_DATA_LINE 3; Save the number of the Last Line on 
ier ! +t : oe terminal to be used to display 
0000015B°EF ODF ee ! 8 § 15$: PUSHAL DCRT_WIDE_DSCR ; Push address of descriptor to set 
00000000 ' GF g FB 1055 1 : 4 208: CALLS 4 -G*LIBSPUT_OUTPUT : Set the sereneeNs 
17 50 €9 105C 12885 BLBC °99 3; Branch one 
01 £0 105 1 886 30$: BBS prety EXIT_FLAG,- : Branch if oat flag is set. 
al a E0 1967 i , BBS Oligo inet Frac, : Or if INIT flag is set 
07 00000476'EF 1069 1 ass MISC FLA AGS; 799$ : 4 
00002348'EF 00 FB 106F 12890 CALLS #0,REFR 3: Refresh the screen. 
04 1976 12891 99$: RET 
1077 1 £36 
1077 1289 


ee 


_ TPARSE _BLK+TPASL_STRINGPTR points to the first keyword in the command 
buffer following the ‘HELP’ command string. 


CMD_LINE_DSCR contains the number of bytes in the entire command Line. 
IMPLICIT OUTPUTS: 
Help txt is output to the terminal. 


Nn 8 
SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro v04-00 P 
v04 = GET_HELP 4 2rSEp= 188s $8i3ci08 OM U TS Bees etree wans1 729° 782, 
2 -SBTTL - GET_HELP 
9 
2 FUNCTIONAL DESCRIPTION: 
This routine is called when the user asks for help. The remainder 
2 of the string is passed to the LBRSOUTPUT_HELP routine. 
2 CALLING SEQUENCE: 
4 CALLS #0,GET_HELP 
$9 CALLED BY: 
30 READ_W_PROMPT 
0 44 IMPLICIT_INPUTS: 
0 91 
0 G4 
0 91 
0 91 
0 91 
0 91 
0 91 
0 2) 
8 9 


RETURN STATUS: 


Be Ge Se Se Ge Ge Se Se Be Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Sse Se Se Ss Se Se 


? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
? 
7? 
? 
7? 
? 
? 
7? 
g 
9 
5 
3 
9 
F 


ONS SNS NSS 


ec ee ee ee me ee ee ee a ed ed ad nd ed ed dd = = — 2d dd 2 2 3 2 8 8 2 8 


OOD NAME WII 21 9 OO NAME WIN 9 OD NAU SEWN 3 OC OOONAULS WN 0 OONAOUFS WN "OWOWONOuw 
s. 


9 

0 9 

8 4 SS$_NORMAL or failed status returned in RO. 

Steep 

0800 8 ; ~ENTRY GET_HELP,“M<R11> 

0 930 ; 

. ; 3 Store the number of bytes remaining in the command string in HELP_DSCR. 
000020D7"EF C3 10 9 SUBL3 CMD_LINE_DSCR+4,- : Get the number of bytes we've 
00000605 "EF 0 9 TPARSE_BCK+TPASL_STRINGPTR,-; already parsed. 

’ OBS 1993 we 
O00020D3"EF 50 (C3 5 129 SJBL3 RO,CMD_LINE_DSCR,- 3; Save the number of bytes remaining. 
00000553°eF ORe $3 HECP_DSCR —_ —— . 

94 3 ; Store the address of remainder of the command string in HELP_DSCR+4. 
000004DB'EF DO 1091 12942 ° MOVL §§TPARSE_BLK+TPASL_TOKENPTR,- 
00000557'EF 4 33 HELP_DSCR+4 

00002248'EF 06 90 H' 54 MOVL #HEADER_END-1,LINE_NUM ; Set the scrolling region to the area 
1048" AS 1294 BSBW  DRAW_LAST_LINE : Draw bottom Line of the display box 
one 94 3 as the bottom Line of the display 
A 94 3; _header. 
Ab 1294 JLBC RO,99$ 3; Branch on error. 
09 00002247°EF O01 €1 AC 1295 BBC #OVTSV_DCRT,OUT_DEV,10$ ; Branch if terminal is not a DECcrt. 
OOOO1AO3"EF 16 4 1295 JSB SET_REGION_HELP : Establish a scrolling region. 


03 00002247°EF 0 


eeeatedl 


oF 


RSEb198e 83:28:08 LCLIUTE. SRESSwUccstR.mans1 °° CF8%, 


PHEADER _END,.LINE_NUM 


LINE_NU 
#2, ay IBSERASE_PAGE 


RO, 

Gl 1BSGET INPUT 
HELP_FLAGS 

HE ERARY _NAME 


HELP_DSCR 
SCREEN WIDTH. - 
OUTPUT_WIDTH 
OUTPUT" WIDTH 


rags te + OUTPUT 
“LBRSOUTPUT_HELP 


RO $98 DCRT,OUT_DEV,20$ 
SET_REGION_FULL~ 


#0, REFRESH 
#S$$_NORMAL,RO 


Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Fe Ge Ge Ge Be Se 


; Branch if coraidel is not a DECcrt. 
; Set scrolling region to use full 


; Refresh the screen. 


; Sranch on error 
Set cursor to Line after header. 
Erase all the data. 


Branch on error. 

Push address of input routine. 
Push address of flags. 

Push address of descriptor for the 


Library name. 
Push address of descriptor for the 
help keyw 


Save width of screen. 


Push address of longword containing 
the output width. 

Push address of output routine. 

Call Uibrarian Rete routine. 

Branch on erro 


screen. 


—— — — ° —y 
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» SBTTL ° RESET 
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FUNCTIONAL DESCRIPTION: ; 
This routine restores the default classes and fields for the cluster 
and local reports. It also reselects the cluster report, reenables 
any a that have been removed from the report, and resets the 
screen to 80 columns if run on a DECcrt. 


CALLING SEQUENCE: 


CALLS #0, RESET 
CALLED BY: 
| 
| 
| 
} 


9 

9 
44 READ _W_PROMPT 
99 OUTPUTS 


Cluster bitmap restored using copy saved by the INIT routine. 
Local bitmap restored using copy saved by the INIT routine. 
CURRENT_REPORT set to cluster. 

Default cluster report classes stored in CLASS_SELECT. 
Default local report classes stored in LOCAL_SAVE. 


RETURN STATUS: 
None. 


oO 

Oo 

w 
Be Se Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Se Ge Ge te Se 
‘ 


-ENTRY RESET,“M<R2,R3,R4,R5,R6,R7> 


OOO00S4F*EF 00000050 B&F MOVL #80, VALUE 3; Screen width = 80 columns. 


: Set default classes for each report. 


: MOVL #CL SSR ALL _SYS!CLSSM_CSB,~ 
MOVL #CLSSA_LPRT!CLSSM_ERR,CLASS_SELECT 


; Restore saved copy of cluster bitmap. 


8F 
"EF 
EEB7 CF 00000180 iF 


OOOQCCOCCOOCOSOOOOOOoooooooooo 


RA AAA ATIPINIFININININININD — 9 3 3 3 3 3 3@ A@QGOOOOOSOSOSO 


Get the Length of the cluster bitmap. 
Get the address of the cluster 


bitmap. 
Get the address of the saved copy of 


MOVL  #CLUSTER_MAP_LEN,RS 
MOVAL CLUSTER_BITMAP,R6 


MOVAL CL_SAVE_BITMAP,R7 


56 00000000°EF 


57 O0000000C ‘EF 
the cluster bitmap. 
Restore the cluster bitmap. 


60$: (R7)+, (R6)+ 


MOVL 
SOBGEQ R5,60$ 


: Restore the field sizes for the cluster report. 


AUER OOO NOAUE WIN @§ O ODNAUE WN OO OONOAOUS WN Oo 


15-SEP-1984 23:52: ‘AX/VMS Macro v04-00 Pa 5 
4-$ pa} 984 33:32:09 aati SRCJSHWCLSTR.MAR; 1 oe 933, 
MOVAL CLUSTER_SIZE_ARRAY,R7 ut Ry A. on of the cluster field 
MOVAL CLUSTER_TABLE,R6 Get the address of the cluster 


address table. 
MOVL #NUM_CLUSTER_DSCRS,RS Get the number of field descriptors 


for the cluster report. 
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57 O0000000°EF DE 
56 O0000000°EF dE 
55 00000046 8F 00 


—_ 
— 
AAO 
@oo— 


NNNNNOO 
FOoann 


13037 
1168 1 
1168 1 
116F 1 
16 138 
5 D6 1176 1 CLRL we Clear index 
52 664 dO i ! rt: 70$: MOVL (R6)CR3I,R2 y AE address of the field 
62 6743 90 117¢ 1 46 MOVB = (R7) CR3J,- Copy the "ort inal fiel size back 
1180 1304 9*8 FELD SEZE (Re) 3; into the field descrip 
F453 55 F2 1180 1304 AOBLSS R3, ¢ Loop for each field deosrioter in the 
V r : 4 ; cluster report. 
i! r ! ; ; Restore saved copy of the local ports bitmap. 
55 00 oO 1184 1 038 : MOVL #LOCAL_MAP_LEN,RS5S : Get the Length of the local bitmap. 
36 90000000 EF DE 1187 13054 MOVAL LOCAL_BITMAP,R6 : Get the address of the local bitmap. 
‘EF ODE 1 : 036 MOVAL LOC NSAVE BITMAP, R7 3 Cee the address | of the saved copy of 
3 e loc 
86 87 vO 1195 1 3$ 80$: MOVL (R7)+, (R6)+ 3 Restore the foe ports bitmap. 
FASS F4 1198 1 38 SOBGEQ R5,80$ : 
198 10a 
1198 13061 : Restore the field sizes for the local report. 
1198 13068 
57  OO000000°EF ODE 132 : bee MOVAL LOCAL _SIZE_ARRAY,R7 3 ont ne = of the local field 
3; size 
56 OO000000°EF ODE a14 : ? MOVAL LOCAL_TABLE,R6 3 Get the address of the local 
: _ addre a 
55 DO 11A9 1 o8 MOVL #NUM_LOCAL_DSCRS,R5 : Get the number of field descriptors 
11AC 1 $ : _for the local report. 
3 D4 11AC 13070 CLRL R3 : Clear index 
664 b0 1185 \ 4 90$: MOVL (R6)CR33,R2 3 kT address of the field 
3; desc 
62 6743 90 1182 1 5g MOVB (R7)C 3 Copy the or original field size back 
11B6 13074 FDS, BarieiD. SIZE(R2) 3; into the tielg descriptor 
F453 55 F2 1186 13075 AOBLSS ; Loop for each field deecripter in the 
Bt } y : local report. 
002278'EF 2C 11BA 1307 movCcS #0,SYS_ID_LIST,#0,- 3; Restore any systems that have been 
$O002 78°EF Fcenegs et 11¢2 1307 #16_LIST_CEN,SYS_ID_LIST: removed from the display. 
D4 11CA 1 9 CLRL 1D-COUN NT ; Clear the number of system removed 
1106 ! 3; from the display. 
OOO0047A'EF 94 1100 1 ; CLRB SCROLL_FLAGS 3; Clear the scroll flags. 
0000047C°EF 94 1106 13084 CLRB CLSTR SCROLL FLAGS 3; Clear the flags that will be retored 
11DC 13085 3 as the scroll flags after call to 
11DC 1 $ ; _SHOW_CLUSTER. 
64°EF D4 11DC 1 CLRL CLSTR_H_SCROLL 3; Clear all the scroll counters. 
Goopegavet Bt TES | etm LOCAL HrSemOLE 
f BA 11EE 1 BICB SRP TSH CLSTR,- ; Force the SHOW_CLUSTER routine to 
EEOD CF Hi ' +! CURRENT_ REPORT 3 roses the cyonrs by setting report 
3 to the local repo 
52 00000476°EF DO 11F5 1 38 MOVL MISC_FLAGS ,R2 ; Save copy of miscellaneous flags. 


vos-080 pee ”VEREAREE SESS YASUME ta552,404<00 wane "28" QW, 
c8 | FA BISL Hh aa UGS _FLAG,- 3 stecal init ee | so we don't draw the 


1 
-gg00g76° Ee FB 120 caus | BO SETUSER t see thes 


REEN ; Set the screen width. 


! ASSUME MFSV_INIT_FLAG EQ 0 
*bog008 76"EF FO } S isi INSV R2 rate! INIT_FLAG,#1,- Restore init flag to original state. 
F CF fe : 1 ! ! § carts Pb Saou. CLUSTER ; Set default report to clusters. 

1 15 13104 

1215 13105 
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ID DO. 177 3D QI 2078 SSDP PVPVDVLPVPVIVDPVSVSIULVSVSVSVSUSVOSVS VS VSUOSUSOOSIOSD 


cm ee a ee ed ed ed a 8 ts a st tk a tt tt dd tt te 


SPUD VASAT BS BS BS BS AI APO RROD tt tt a a ss Ss Ss Ss Ss 2 


—@ 


INIT 
READ _W_ PROMPT 


RETURN STATUS: 


Se Ge Se Ge Se Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Se Se Ge Se Se Se 
4 +> 
6 


sENTRY EXECUTE,“*M<R2,R3,R4,R5> 


PPP EEE SES & FMW III arononononononononon 


OOD NIDA AE WN OS OOD NAN ES WIN SO OD NAME WN OOOO 


MOVCS #0,IN_FILE SPEC, #*A/ /,-; 
#IN_FILE_SPEC_LEN,- 3 

IN_FILE_SPEC ; 

3S: BBC ant SV INIT FLAG. ; 
MISC_FLAGS;4 ; 

MOVC3 INIT-NAME ,@INIT_NAME+4 ,-; 
FILE_SPEC ; 

BRB 3 

4$: BBC #OVTSV_DISK, IN_DEV,5$ e 
MOVC3 IN_DEV"NAME,- ; 
IN_DEV_NAME+8,- 3 

JNFILE_ SPEC ; 

BRB F 


= 
"208 

PEN AB 
Stee” RO-208 


INF AB 


a a a a eh a a ts a ss a os 4s td ss a 5 bs te as bt ts tn ts 4 te te 


FUPUSVSVSUSVSTSISION 
CRIS SONOMR IO 
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I 
SPARSE FAB 
JLBC RO 
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END. REPORT : Ge 


15-SEP-1 :52: AX/VMS Macro V04é- P 
4-$ sats 93:32:98 ATE eRe SeHucc STR .MAR: 1 age 78 
7 -SBTTL ad EXECUTE : 
! FUNCTIONAL DESCRIPTION: 
1 This routine is used to execute a command procedur wen reqyested by 
1 the user tor Steeped). fo execute a startup initialization file 
1 yen Show Shyster f first envoked, and to read commands when the input 
! s froma file. 
1 CALLING SEQUENCE: 
i CALLS #0,EXECUTE 
CALLED BY: 


Execute initialization file. 
Execute command procedure. 
t command input from a file. 


SSS_NORMAL or falied status returned in RO. 


Pad the filespec with blanks. 


Branch if initialization not in 
progress. 

Store logical name in the file spec. 
Jump to common. 


; Branch if input isn't from a file. 


Otherwise SYSSINPUT is the filespec. 


; Jump to common. 


: Get the filename from the command Line and store in in the filespec. 


5$: MOVCS TPARSE BLKsTPASL STRINGCNT,= 
TPARSE_BLK+TPASC_STRINGPTR,- 
N_FILE-SPEC 

7$: INFAB ; 


Expand the filespec. 


; Branch on error. 


Open the file. 


Branch on error. 


] 
, 
3) | 
| 
| 
| 


"SESS SS:2E0F KOLIUTE. SRESSMMCcstR.mans1 PO HES,, 


| 
BISL #AFSM_IN_OPEN,MISC_FLAGS; Indicate file is open. 


sachs 


00000476"EF 00000040 BF C8 


Show Cluster Utilit 
execute , 


oo 


i 


SCONNECT 3 Connect to input. 
RAB = INRAB $ 
60 50 €9 a BLBC RO,208 :; Branch on error. 
A 10$: SGET RAB = INRAB 3; Get a record. 
50 50 €9 BLBC RO,208 3; Branch on error. 
mov a Hee RSZ,REC_DSCR; Get the record size. 
PUSHAL C_DOSCR 3; Convert record to uppercase. 


mows ae 
GF 2 8 


PUSHAL C-DSCR ; 
5 G*STRSUPCASE : 


$ : Parse the record. 
§ MOV INRAB+RABSW_RSZ, TPARSE_BLK+TPASL ~STRINGPTR 
5 


NB nab ee a 8 at nt ee ed td ad st st 


RPI D LMF ONVAO VINES VNEMOM QUOC O PD PP PF PWV WOM DOOM QAM 


1 
1 
1 | 
1 
| 
1558 
12DA 1 
12DA 1 
12DA 1 
12DA 1 
1h 
12€5 1 MOVL INRAB+RABSL _RBF , TPARSE “BLK+TPASL_ NGPT 
DF 12F0 1 PUSHAL CRO KEY 
DF 12F6 1 PUSHAL CMD STATE 
Pe 1805 | CRS: FB OA TBSTPARSE 
E \ 8 ! 3 BLBS £3°f0 § 3; Loop for entire file. 
oA rece E1 ! ° : + 208: BBC wee SN PN ROPE 3; Branch if the file isn't open. 
5 4 DO 1314 1 38 MOVL : Save error status. 
aso ep THIS «© APSE. fg tH | Recetas fees 
000004 76'EF 08F CA 1 13195 BICL ant Sm_ IN_OPEN,MISC -FLAGS; Jndicate file i is closed. 
3 00 1 1 3 MOVL R2, 3; Restore previous st 
00000000 ° 8F $3 » : ! 44 ya R ; #RMSS_EOF 3 _ orree co condition. END-OF “FILE? 
: Branch 
00000000°8F 50 opi 1 13199 25$: CMPL 4 #RMS$_DEV 3; Was error bad or inappropriate device? 
1A 1 1345 1 BNEG 46-99 ; Branch if n 
00 €1 1347 1 BBC #MFSV_INIT ~fLAG.~ 3; Ok if A fy by INIT, assume SHCSINIT 
12 Songs 76" b 1349 1 ; MISC_PFLAGS,9 3: not defined. 
0 1 4 1 1 30$ MOVL SS$-NOR 3; Indicate succes 
? 76°te E ' ' : BBS RUSCOFLAGS- FLAG. ; Branch if initialization pass. 
oosoe "EF 60 fB 1 1 CALLS #0 RE : Update the screen. 
04 1 1 99$ T 
183 | 
1 13210 END START 
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SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro v04-00 Pa 91 
Symbol table . aaSEE=18bs 38:32:08 OUTS Beet ult see mans: 720% 288, | 
CLSTR_H_SCROLL 464 R COUNT s 
CLSTR-SCROLL_FLAGS titre R i COUNTER_OWNER_ADRS O42 @ OE | 
CLUSGE_¢ UB eeeeeeee x F CROSS 2 § 
CLUBSC"LENGTH = D1A8 CR_WAITS_ADRS g 09 
CLUBSL-FLAGS = § C3858 ECOL VL s 
CLUBSL “FLAGS _DSCR R 09 CSBSB_ECOLVL_DSCR 8 09 
CLUBSQ-F = f CSBSB_REMACKCIM = 
CLUBSQ-FTIME_DSCR R 09 CSBSBOREMACKLIM_DSCR 11. R 09 
CLUBSQ"LST_TIME 2 ¢ CSB$B8-S Ate = 04 
CLUBSQ"LST-TIME_DSCR R 09 CSBSB_STATE_DSCR 73 R 09 
CLUBST—O = CSB$B_UNACKEDMSGS = 3 
CLUBST“QDNAME_DSCR R 09 CSB$B_UNACKEDMSGS_DSCR FIR 09 
CLUBSV“QF VOTE = CSB$B_VERNUM 41 
CLUBSW_MEASEQ = 000000AC CSBSB_WARMCDORPS = rt 
CLUBSW_MEMSEQ_DSCR ABR 09 CSB$B_WARMCORPS_DSCR 51 R 09 
CLUBSW_QDVOTES = 4 CSBSC_LENGTH 2 AC 
CLUBSW-QDVOTES_DSCR 083 R 09 CSBSL-CSID s 90 4¢ 
CLUBSW"0 = 0000 CSB$L-CSID_DSCR 0 55 R 09 
CLUBSW"QUORUM_DSCR 9 0 R 09 CSBSL-STATOS = 0000006 
CLUBSW_VOTES = 0000 CSBSL-STATUS1 = 000 96 
CLUBSW-VOTES_DSCR 00000022 R 09 CSBSL-STATUS1_DSCR 90 F2 R 09 
CLUB _BUF D00 : R 9 CSBSL_STATUS = 00 Be¢ 
CLUB_HEADER_SIZE 99 18 R 0 CSBSL-STATUS2_DSCR 90 412 R 09 
CLUB" IN = 4 00001 CSBSL-STATUS BSCR 0 00434 R 09 
CLUB-NUM_FIELDS 9 00427 R 03 CSBSM-LONG BREAK = 900 001 
CLUSTER_61 TMAP 900000 8 06 CSBSM_MEMBER = 00000002 
CLUSTER-KEYTAB 990000 R 08 CSBSM_REMOVED = 00000004 
CLUSTER-MAP_LE = 0000000 CSBSQ_-REF TIME = 00000074 
CLUSTER_MSG 0000018A R 02 CSBSQ-REFTIME DSCR 99 0453 R 09 
CLUSTER_SIZE_ARRAY 0000 090 R CSBS$V_LONG BREAK = 00000000 
CLUSTER_S 0000 3 R OF CSBSV_MEMBER = 4442 
CLUSTER- TABLE 900 00 R 07 CSBSV~QF_ACTIVE = 900 09 
CLUSTER-TAB_LEN = 0000011 CSBSV—QF “SAME = 00000003 
CLUST_SAVE 0002204 R 05 CSBSV-REMOVED = 99 908 
CL_QDVOTES_ADRS HH R 9 CSBSW_ACKRSEQNM = 000 
CL RorS 18 R 09 CSBSW_ACKRSEQNM_DSCR 0000 Be R 09 
CL-SAVE_BITMAP CR 06 CSBSW"LCKDI = 99 4 
CL-VOTES_ADR 5 DO3A R CSBSW"LCKDIRWT_DSCR 0 b¢ R 09 
CMBS_QUEDED_ADRS 00231 R 3 CSBSW-QDVOTES = 5 
CMD_BuF 9 9 D R CSBSW_QDVOTES_DSCR D2 R 09 
CMD" BUF _LEN = CSB$W-QUOR = 5 
CMD-KEY p RG 1 CSB$W"QUORUM_DSCR 000383 R 09 
CMD"LINE ' R CSBSW_RCVDSEGNM = 5 
CMD-LINE_DSCR D3 R CSBSW-RCVDSEQNM_DSCR 9 R 09 
CMD-START 00 R 1 CSBSW-SENDSEQNM = A 
CMD" STATE RG 11 CSBSW~SENDSEQNM_DSCR RQ 09 
CMD~ STATUS 8 R 3 CSBSW-VOTES = 00 5 
CNTRLC_AST_DEL A2A RG F CSBSW-VOTES_DSCR 95 R 09 
CNVRT_ASC bg et F CSB_BOF_PNTR 1 R 19 
CNX_STATE_ADRS R 9 CSB- COURT R 0 
COL” NUM R 3 CSB-DSCR f R 10 
COMMON _ S$ Rg F CSB"IN = 
CONT INOOUS_QUAL 8 2 CSB" SNAP EB6 R 
CONVERT_DEC R F CSB" SNAP E RQ 
CONVERT 10. HEX R40 Ee STATEDSTRNG. LEN GOR” 

= 

CON_STATE_ADRS R 0 CSB"STATUS_STRNG 452 R 02 


SHWCLSTR Show Cluster Utility Pts oa at 9 $337: 


AX/VMS Macro V04-00 Pa 
Symbol table 4-SEP-1 $f LOE TUTL. SREISHUCLSTR.MAR: 1 9 9%) 
CSB_STATUS_STRNG_LEN 2 7 DG_SIZE_ADRS E6 R 9 
cot = a DIR uf KoRS see R 9 
CSID_ADRS $p R 09 DISPLAY FFO R F 
CTRLG = DISPLAY_CABLE_STATUS 8 F 
CTRLZ = 1A DISPLAY-CIR_ STATE Rg F 
CURRENT CLASS FOR 03 DISPLAY- CLUB A6R F 
CURRENT REPORT 9 a 1 DISPLAY- COMMON 125A R F 
CUR_PRIY a 8 DISPLAY" CON_STATE +4 R F 
CVT- TABLE ADR DISPLAY-CON_STATE_LEN = 3 
DATA_BuF D019A3 R 0 DISPLAY-CSB_STATE ADO R OF 
DATA_BUF _LEN s 40 DISPLAY_CSB_STATUS AF2 R F 
DATA_CNTRL FER 03 DISPLAY_END 45 R F 
DATA_DSCR & DISPLAY-ERROR 1255 R F 
DC$_TERM = 4 DISPLAY-FIELD 0002989 R F 
DCRT_OWN_ = 4 28 DISPLAY-KBYTES OOO2COF R F 
DCRT_LFT_ARROW = Of DISPLAY-LOOPBACK_STATUS 000 ced R F 
DCRT_NARROW_DSCR ih e 03 DISPLAY-PORT_STATUS 0002C91 R F 
DCRT_NOATR_BSCR 0000143 R 0 DISPLAY-PORT-TYP 0002CB8 R OF 
DCRT_RT_ARR = 00004458 DISPLAY_PROC-NAM O002BF4 R OF 
CRT_UP” ARROW = Boe 138 DISPLAY_PROTOCOL 000 A96 a OF 
DCRT-WIDE_DSCR 0000158 R 02 DISPLAY_PTP eH R OF 
ooesC_uce = 00000004 DISPLAY- 0002A44 R OF 
DBST_NAME = 0000 ay DISPLAY_QF _ACTIVE 000 nae R OF 
wL OO0030F4 R OF DISPLAY QF ~ SAME 0002A18 R OF 
DDM_SIZE 4844 ® 03 DISPLAY_QF VOT 000 Ae R OF 
= 0000000 DISPLAY-RPORT TYP 00002819 R OF 
I 1 OOO0E9S R 10 DISPLAY_RSTATE 0000 B98 % OF 
DEC_DISPLAY 00 HF R OF DISPLAY_SCS 00001109 R OF 
C"H_SC 000188A R OF DISPLAY_SCS_STA 000 cae B OF 
“SIZE = 98 003 DISPLAY 3Cs STATE_LEN = 38 99 
“TAB 5 4CA R 02 DISPLAY—SOF TWARE O002A5D R OF 
C~TAB_E 00056A R 02 DISPLAY STRING 00 36 2 OF 
DEC_TAB_LEN = 000 0016 DO_ SNAPSHOT 000005 F a OF 
DEC-v_ STROLL 0001 “8 R OF DRAW_LAST_LINE 300 OF1 R OF 
DEF- CONNCNT = 0000001 DRAW Line 4 466 R OF 
F_EXT 0000001 R 02 DT$_C175 00 One 
DEF _EXT_LEN = 3 Be DT$_C1780 = 4 
EF _NAME 5 R 02 DT$-VT5x = 0000004 
DEF-NAME2_LEN = 00000016 DUMAY_PB 38 53 R 10 
DELAY AC R 3 DUMMY" SB OOOO1F3 R 10 
LA 00241F R F DVI$_BEVBUF SIZ = 5 0 
LM_DSCR 9 173 R 2 DVIS_DEVCLASS = 04 
DELM-DSCR_LEN = 00 DVIS_DEVDEPEND = 0000000A 
V$0_NET x F DVIS_DEVDEPEND2 = 1 
DEVSV-TRM x OF DVIS“DEVTYPE = 0 
DEVDEPEND R DVTSA_AVO = 1 
VDEPEND R DVTSM_DCRT 2 
DEVICE_CLASS R DVTSM_DISK 2 
ICE“TYPE Q DVTSM_HARD = 4 
DEV_TYP_STRNG R DVTSM_UNKNOWN = 5 
DEV-TYP-STRNG_LEN = DVTSM_VT52 = 
IMAP ADR ® 3 DVT$V-AVO = 4 
DGS-DSCRD_ADRS R DVT$V-DCRT = 1 
DCS_FREE_ADRS Pp 3 DVT$V"DISK s 
DGS-RCVD_ADRS R DV TSV-HARD = 
DGS” SENT~ADRS a 9 DVTSV-UNKNOWN z 
DG_OVRHD-SIZE_ADRS R E DVT$V-VT52 = 
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SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52:08 VAX/VMS Macro V04-00 Page 295 
Symbol table 4 27$Ep- 1986 33:36:01 Leute SRCISHWCLSTR.MAR; 1 . 533) 
LPORT_NAME_ADRS R 9 MFSM_NEW_CHAR s 9 
LP_STATUS ADRS R E MFSM_RIP = 
LP-TYPE_ADRS R E MFSM-SCROLL = 
RNER = MF SM_VALID_MSG = 
LSYSTEM_ID_ADRS R E MF SV" CONT = 4 
MAIN_CORT R F MFSV"CR_FOUND = A 
MAIN_ERR R F MFSV-CYCLE = 00 5 
MAIN_EXIT R F MFSV-EXIT_FLAG = 1 
MAIN_LOOP R F MFSV-INIT-FLAG = 9 
maP_CEN R 03 MF SV" INVERSE = 
MAP"LENGTH = MFSV—-IN_OPEN = $ 
Sk = RF SV NEG CHAR z 
MASK BIT = MFSV-RIP = 3 
XPBT s MFSV—SCROLL = 8 
1D = MFSV"-VALID_MSG = 00000009 
“ASG R 03 MIN_REC_ADRS 0000918 R 09 
MAX" PORT_ADR R OE MIN’ SEND_ADRS 000 898 R 09 
mBSE_ERTCNT MISC_BUF Hat ee a 10 
MBSB_ERTCNT_DSCR R OE MISC"BUF _LEN = 00 0026 
MBSB_ERTMAX MISC_FLAGS O0008 R 03 
MBSB_ERTMAX_DSCR R OE MORE-DSCR 0000078 R 02 
MBSL_DEVTY MORE _ DWN 0000082 R 85 
MBSL_DEVTYPE_DSCR a OE MORE_LFT 000008D R 0 
MBSL_FORM_PB RE_ 00000C8 R 02 
MBSL_FORM_PB_DSCR R OE MORE— TABS 0000090 R 02 
MBSL-PL_WAITERS ORE— 00000Ar & 02 
MBSL_PL-WAITERS_DSCR ® OE MSG$_TRMBROCST = 00000053 
MBSL_PORT_NAME MSG$_TRMUNSOL IC = 90080001 
MBSL-PORT_NAME_DSCR R OE MSG1_DSCR 00001BC R 02 
MBSL-PORT_NUM MSG2-DSCR Boge ICE R 0 
=PORT_NUM_DSCR R OE MSGS_FREE_ADRS 0000113 R OE 
MBSL_STS MSGS_RCVD_ADRS 900007 R 09 
MBSL_STS_DSCR R OE MSGS" SENT ADRS OOO074F R 09 
MBSW_CMDS_Q G_FRE_QOE 4s et R 03 
MBSW-CMDS- QUED_DSCR R OE MSG_HDR_SIZE_ADRS 9000180 R Of 
MBSW_DG_FRE MSG_OUT_ADRS O0004AD R 0 
MBSW_DG FREE_DSCR R OE G_OUT”- QUE 0000010 R 03 
MBSW-ERRCNT MSG"-SIZE_ADRS 38 0206 R 09 
MBSW_ERRCNT_DSCR R OE NAMSB_ESS = 00 5 oA 
MBSW_MSG_F NAM$B_NOP = 0000 : 8 
MBSW"MSG FREE _DSCR a OE NAMSB_RSS = 000 $ 0 
MBSW_RSPS_QU NAMSC_BID = 0000000 
MBSW-RSPS_QUED_DSCR R 0 NAMSC"BLN = 0000006 
XCRAN R 6 NAMSL_ESA = 38 S of 
_BUF R NAMSL_RSA = 4 
“BUF _LEN s NAMST-DVI = 00000014 
MBX TASG_OSCR R 03 NARE ARS 0 3 R OE 
=S = 
MEMSEQ_ADRS R 09 NEW_CHAR_BUF ; R 03 
SSAGE R OF NEXT_ADD-CIR_QUAL 8 R 11 
MF SM_CONT z NEXT" ADD- CON~ QUAL FOR 11 
MFSM-CR_F = NEXT ADD-SYS_QUAL +3 R 11 
mF SM_CYCLE = NEXT-REM-CIR-QUAL 29 R 11 
MFSM-EXIT_FLAG = NEXT"REM-CON_QUAL st R 11 
MFSM~INIT-FLAG = NEXT-REM-SYS~ QUAL 4 ¢ R 11 
MF SM_ INVERSE = NEXT"SET-FIECD_QUAL 38 a 11 
MF SM IN_OPEN z NODE-ADRS 00124 R 09 
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SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro V04-00 Pa 
Symbol table : 4-SEP-1984 33:32:09 LO TUTL. SREISHWCLSTR.MAR: 1 9 9%) 
NODE _NAME 50 R PBSB_RST_PORT_DSCR OR 09 
NODE “NAME _DSCR 48 R : PBSC LENGTH ‘5 = $ 
NO_MESSAGE R F BSC_OPEN z 
NO-MORE R BSC-VC_FAIL s 0 
NUCL _DEV_NAME 1R LUBLIN = 4 
NUM_BUF _OSCR A 1 PBSL_COTL s 4 
NUM_BUF “DSCR_DSCR R 3 PBSL-RPORT_ = 1¢ 
NUM_CIRCUITS_ADRS 1 R PBSL-RPORT_FCN_DSCR B6 R 09 
NUM CLASSES 9 PBSL-RPORT_ 2 91 
NUM-CLUSTER_DSCRS 46 PBSL-RPORT_REV_DSCR 6 92 R 09 
NUM_ CONNEC TIONS_ADRS 19 R 3 PBSL-RPORT_TYP 2 01 
NUM_ERRORS_ADRS § A : PBSL-RPORT-TYP_DSCR 0 ag] R 09 
NUM_F IELOS 8 PBSL-SBLINK = 000 0 
NUM_FREE_BUF _DSCR FR 10 PBSL—WAITOFL = 0 3 
NUM_FREE-BUF -DSCR_DSCR 4C R OE PBSL-WAITQFL_DSCR 0000508 R 09 
NUM_HW_ TYPES 9 PBSM_CUR_ z 90000001 
NUM_LIRES R 03 PBSM CURPS = 000 99 1 
NUM_LOCAL_DSCRS 1 PBSSACSL_NUM_CDT = 0000 904 
OLD-CDT_DSCR 11. R 03 PBSSHCSL_NUM_CDT_DSCR O008 1R 09 
OLD-CSB"DSCR 01 R 0 PB$S_PORT_TYP = 0000001F 
OLD-F 1X" BUF A3 R 10 PBST-LPORT_NAME z 90000024 
OLD-PB_OSCR 09 R 03 PB$T-LPORT-NAME_DSCR 00000478 R 09 
OLD-SB-DSCR FO R 3 PBSV-PORT_TYP = 0000000 
OLD-VAR_BUF 19 R 03 PBSW_STATE = 900000) 
OLD"VAR~BUF _END 041D R 3 PBSW-STATE_DSCR 0000529 R 09 
OLD-VAR~BUF -LE 21 R 0 PB_BOF_PNTR 9000015 a 10 
OPER_CIRCS_ADRS 000001EB R OE PB- COUNT 0000 £9 R 03 
OTSSCVT_TZ_L aeeeeeee =X 10 “DSCR 00000037 R 10 
F 00000174 R 03 PB-F IRST_LOOP 00002F25 R OF 
OUTNAM_BLOCK 000001C4 R 03 ns = 00000004 
PUT_DDM 0001097 R OF . 9000¢F 0B R OF 
OUTPUT QUAL 900048 fe 02 PB-LOOP_END 0000 918 R OF 
TPUT-TIME 0001E62 R OF PB-RSTATE_STRNG 00000330 R 2 
OUTPUT-WIDTH 000 ¢ R 05 PB_RSTATE_STRNG_LEN z 9000 008 
OUT_CHAN 000 $ R “SNAP 000 at R OF 
OUT"DEV 900 47 R 03 PB-STATE_STRNG 0000 p R 02 
OUT~DEV_NAME 0 ef 8 0 PB-STATE_STRNG_LEN = 9000009 
OUT“EXP~DSCR 9000 4R 0 PDT$B_DQTMAP 900001 4 
OUT“EXP 9 O27C R 0 PDT$B_DQIMAP_DSCR 00 23 R OE 
OUT"EXP"NAME_LEN = 00 9 50 PDT$B_HSHUT 00 ooi8 
OUT“FILE_SPET 0 ¢4 R 03 PDTSB_MAX_P 0000017¢ 
OUT"F ILE-SPEC_LEN s 90 0 PDT$B_MAX_PORT_DSCR 900 261 R OE 
OUT“MSG 000161A R OOF PDT$B-NXT~PO 000 | 
= 4163 ; PD1T$B_PO_CBST 99 18 
PABC = 4261 PDT$B_PO-LBSTS_DSCR 2E2 R OE 
PARSE_INTERVAL 00624 R 11 PDT$B"P1-LBSTS 00 181 | 
PARSE_ SCREEN DO62E R 11 PDT$B_PLOGMAP 134 | 
PARSE _ VALUE 638 R 1 PDT$B_PLOGMAP_DSCR 0 ec? R O€ | 
pese_CBL_STS = POT$B_PORTMAP 1 
$8-CBL-STS_DSCR DR 09 PDT$B-PORTMAP_DSCR $82 R OE 
PB$B_PO_STS = 9 PDT$B_PORT D 
PBSB-P1~STS 2 A PDTSB-REQIDPS 17F | 
PBSB_RSTATE = 1 POTSC“LEN 2 oes 
PBSB_RSTATE_DSCR BR 09 PDT$C-PAREGBASE FA 
PBSB_RSTATION = C PDT$C~PAREGEND 1 9 | 
PBSB_RSTATION_DSCR ; R 09 PDT$C~PQB 2 1E | 
PBSB-RST_PORT = 0000002 POTSL—CNF 0&4 
| 
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SHWCLSTR Show Cluster Utilit 15-SEP-1984 23:52: AX/VMS Macro v04-00 Pa 97 
g bl . Pr CrISRS Se:5zi89 LONI URS Sacco, v0 , Page a3 
PDTSL_cO 0 PFX_LIM s 007 
PDTSL~Ca POOL WAITERS. ADRS 158 R E 
DFG f POOL “WAITER. ca f 
SL-DFQHDR C“WAITER-LOOP_END 45 R : 
PDTS$L-DGHDRSZ PORT" FORM. PB_LOO OF f 
“DENE THD 194 PORT" FORM~PB~LOOP_END CR F 
PDT$L~DGOVRHD . 8 PORT“NUM_RDRS D1 R E 
PDT$L-DGOVRHD_DSCR DR OE PORT” SNAP 1D9 R f 
PDT$L~DQELOGOUT PORT “SNAP. END D1 R f 
PDTSL~GPTBASE ¢ PORT“STATOS. STRNG FE R 2 
1SU~GPTLEN PORT“STATUS~STRNG_LEN . 0 
PDTSL“LBDG é PPDSB DEF ST iC 
PDTSL-AF 0 PPDSB-FLAGS oF 
PDTSL~MFQHDR ¢ PPDSB-HUVERS 4 
PDTSL~MQELOGOUT PPDSB“LBDATA i 
PDTSL-MSGHDRSZ . 4 PPDSB“LCB.. 000001 
PDTSLMSGHDRS2_DSCR SR 08 PPD$B“LCB-LPORT 000001 
PDTSL-ATC ’ PPDS$B"LCB-NPORT 000000F 
PDTSL~PFAR 8 PPDSB-LCB~ 0000011 
PDTSL~PRC PPDS$B“LCB-PORT 000000E 
PDT$L~POLLERDUE 18¢ PPDSB~OPC 000000E 
PDT$L~POOLDUE 01 PPDSB-PORT 999000¢ 
PDTSL-PPR 10¢ PPD$B~PROTOCOL 000001A 
PDTSL-PS OO00EC PPDSB-RSTATE 0000025 
PDTSL-PSR 000006 § PPDSB-RST. PORT 0000094 
PDTSL~SPTBASE 0000224 PPDSB-STAT 0000000 
PDTSL~SPTLEN 00000998 PPDSB~SWFL 0000008 
PDTSL-VBDT 9090081¢ PPDSB~SYSTEMID 0000014 
PDTSL~VPOB 0000918 PPDSB-TYP 00000004 
PDTSLWAITOFL = 00000 PPDSC"LB_LENGTH 9000046 
PDTSN~PRV_LBS = 0000000 PPDSC“LCB_DA 000001 
$07COMG 00001F PPDSC"LENGTH 9000012 
~Coma 000001F 8 PPDSC"MIN. DGSIZ 000005 
PDT$Q~COMOBASE 000010 PPDSK7LB_CENGTH 0000046 
$07 COMOH OO001Es PPDSK-LENGTH 0000001 
~COMOL 0001€0 PPDSL BLINK 00000004 
PDTS$Q~DFREEG 0100 PPDS$L"DG_DISC 0000028 
~FORMPB 17% DSU-FLINK 000000 
PDTSQ"MFREEO 00108 PPDSL-IN. VCD 000001 
“RSPO 200 PPDSL“LBERC 000004 
PDTSQ~TEMP_RSPO C PPDSL~PO_ACK 000001 
PDTST~CNTOONER = 9000004 PPDSL~PO"NAK 00014 
PDTST~CNTOWNER_DSCR 00110 R—s«O PPDSL~PO-NRSP 0000018 
PDTS$V~LBDG ° PPDSL “PI ~ACK 90001 
PDTSW"BDTLEN PPDSL~P1 “NAR 
PDTSW~DOELE i PPDSL~P1-NRSP 00024 
SU"LPORT. STS 1 PPDSL “REC BOF F 058 
PDTSWROELEN 214 PPDSL-REC~NAME 
PDT$U~PBCOUNT 1 PPDSL-RPORT_FCN 0 
PDT$W~PBCOUNT_DSCR DSR OE PPDSL-RPORT REV 0 
PDTSW7SIZE . 09 PPDSL-RPORT~TYP 1 
PDTSW~STDGDYN PPDSL~SND. BOF 2 
PDTSW~STDGUSED 19A PPDSL~SND-NAME 
PDT_BOF ATR 10 PPDSL~ST_ADDR : 
PDTTIN . 0 PPDSL“XCT_LEN ; 
PDT~PFX ADR 92 PPDSG~CURTIME i 
PEND_REv_ADRS 89 R PPD$Q"NODENAME ri 
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i] 
SHWCLSTR Show Cluster Utility 15-SEP-1984 23:52: AX/VMS Macro V04-00 Page 
Symbol table Faas 33:32:88 CLIUTL.SRCJSHWCLSTR.MAR; 1 i, | 
SNAPSHOT _END * F TIME _DSCR 5 R 03 
SNAPSHOT ERR R F TIME- s 4 
ADRS R TIME- ce OR 02 
= TIME-STRING_LEN s F 
SNAP~BUF _END 8 1 TITLE BUF 33 a 03 | 
SNAP BUF -LEN s TITLE BUF LEN s 4 
“END R F TITLE-COUR 18C R | 
SOF TARE _ADRS a 9 TITLE-DSCR 188 R 
SS$_BADPARAM s VATE LES ARRAY 100 R 
$S$$_INTERLOCK s BC TITLE-START ¢ R 
SS$_NOCMKRNL s TKN_DSCR R 
SS$_NORMAL = 00 1 TOP CAD _LINE 479 
$S$_NOSUCHNODE = sc TOP = 7 
SS$_NOTR = ¢ : TPASK_COUNTO = 8 
TART 9 RG F TPASK_LENGTHO s 4 
START BIT R TPASL_PAR = 9 
TATUS 91 R TPASL_STRI z 
STATUS_ADRS f R TPASL-STRINGPTR = 
STORE _ASG 0004E9 R F TPASL_ TOKE = : 1 
STRSUPCASE eeeeeeee =X OF TPASL_TOKENPTR = 00000014 
TCH 1AB R 3 TPASM_ABBR = 38 0002 
SWITCH_DISPLAY 266 R : ALPHA . SOOO TEE 
SYSSASCTIM eeeeeeee GX OF “BLANK 2 O00 
SYSSASSIGN eeeeeere GX OF TPAS_DECIMAL = O1F 
SYSSCANTIM eeeeeeee GX OF $“DIGIT = O000teF 
SYSSCLOSE eeeeeeee GX 10 “E0S = 000001F7 
SYSSCLREF aeeeeeee GX OF TPAS_EXIT = FRFFFFFF 
SYSSCMKRNL eeeeneee GX OF TPAS_FAIL = FEFFFFFE 
SYSSCONNECT eeeeeeee GX 10 TPAS_FILESPEC = QOOO0O1EA 
SYSSOCLEXH eeeenere GX OF TPAS_HEX = 000 pire 
SYSSEXIT eererere GX OF TPA$_IDENT = 000 eC 
SYSS$GET aeeeeeee GX 10 TPAS_KEYWORD = 000001 
SYS$GETDVI aeeeeeee GX OF PAS_LAMBDA = 9 1F6 
SYSSGETJPI teneeeee GX OF TPAS_MAXKEY = 000000DC 
SYSSGETMSG eeeeeeee GX OF PAS_OCT = 000001F4 
SYSSHIBER teeeceee GX OF TPAS_ STRING = 000001F 
SYSSLKWSET eeeeeeee GX OF TPA$_SUB s D01F 
SYSSOPEN eeeereee GX 10 TPA$_SY s D01F 
SYSSPARSE eeeeeeee GX OF TPAS = 0000 18 
YS$$Q10 eeneceee GX OF TPARSE_BLK ce 8 3 
SYS$Q10W eeeeeeee GX OF TRANS ITION_TIME_ADRS Rg C) 
SYSSREADEF eeeeeeee GX OF TRAN_BUF DO3A4 R ; | 
SVSSSCHDUK eeeeeeee GX OF TRAN-DSCR D039C R 0 
SYSSSETEF eereeeee GX OF TRMSA_TM_NOEDIT s 
SYSSSETIAR eeeeeeee GX OF TRMS_MODTFIERS = 
SYSSTRNLOG eeeeeeee GX OF TRY COCK R OF 
SYSSULWSET eeeeceee GX OF TTSA_ESCAPE = 
SYSSWFLOR eeceeeee GX OF TTSM_NOBROCST z 
SYS_ID_ADRS 9 TTSM_ SCOPE = | 
Svs ID-LIST 3 TTSM-WRAP s 
ERA_LTST 0 TT2$A_AVO = 
TERM LIST_LEN s TT2$M_BROCSTMBX z 
TIMB0 03 TT2SM-DECCRT : 0 
TIME BUF ‘ 3 UcBse DEVI YPE = gooooee; © | 
TIME-DISPLAY OF UCBSB-ERTCNT = 00000080 
| 
| 
| 
| 
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par TR Show Cluster utilit 15-SEP-1984 23:52: AX/VMS Macro v04-00 Pa 
vasst table . 4-$ at} 33:32:08 PE UTL. SREDSHUCLSTR.MAR: 1 oe 70, | 
UEBS "ONL INE . | 
= 
UCBSW"ST 2 
UL_ CORNER = 
UNACKED_ADRS 09 
CORNER ra | 
| 
v 
VAR~BUF _ADRS 
VAR_BUF — END 9 | 
VAR" BUF -LEN 
VERT _BAR 2 
vores $s 09 
vT all AR = + 
VT50"LF T-ARROW = 000000 
VSS Ae = $398 
= 
VSenOLt LN 
WARMCORPS ADRS 9 
WAS_LOCKE F | 
WIDE s 
YES_NO_STRING 02 
YES_NO_STRNG_LEN = 
two moe awe moa ae cas ~ 
! Psect synopsis ! 
teen enztemoenocercoes + 
PSECT name Allocation PSECT No. Attributes 
- ABS . ( 0.) 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( 864.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
RODATA ( 14 $3 ¢ ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
RWDATA ( 8932.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
SRM ( 18.3 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
CLUSTER_SIZE_ARRAY ( 70.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
CLUSTER_81 TMAP ( $3°3 $ ( §-} NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
CLUSTER_ TABLE ( 0.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
CLUSTER_KEYTABLE ( $3°3 8 ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
CLUSTER_DSCRS ( 2339.) 9 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYT 
AL_STZE_ARRA ( 25.) QA ( 10.) NOPIC USR CON REL LCL NOSHR NOEXE AD WRT NOVEC BYT 
AL"B1TMAP ( 8+} ( 11.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
L TABLE ( 100.) OC ¢ 1-3 NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
LOCAL _KEYTABLE ( ) D( 15.) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
LOCAL _DSCRS ( 3°} — ( 14.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
MAIN (13107.) OF ( 15.) NOPIC USR CON REL LCL NOSHR EXE RD WNOWRT NOVEC BYTE 
SNAP_DATA ( 4962.) 10 ¢ 18-3 NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
LIBSSTATES ( 1618.) 11 ¢ 17.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
_LIBSKEYOS ( 152.) \§ ¢ 13-3 PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 
LIBSKEY1$ ( 501.) 13 ¢ 19.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD | 
| 
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eee be Show Cluster Utility 
VAX-11 Macro Run Statistics 
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! ; Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 


Initialization 10. :00:00.07 :00: 4 
Command processing th :00:00. 700: 
Synbo| table sort i ?. 4:3 
se 1416 00:43. Hf 14 
at table output :00:01.04 3°92 
Cross-feterence: output ) 3:90:88: 
- r utpu * 
Assembler run totals 4180 8 19. 3 if : $3 


coxprking set pyats was 4100 page 
asta we (1665 pages) of virtual’ memory were used a buffer the intermediate sete. 
re were 240 pages of symbol table geese due ing. $26.0 to hold 4034 non-local and 605 local symbols. 
1351 source Lines were read in Pass 1, producin 4 object records in Pass 2. 
pages of virtual memory were Fy to define * 14 macros. 
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Macro sunt: | name Macros defined 
dS chat ap MLB; 1 $ 
MLB; 1 1 
Fey 3 eyatamet: MLB;2 0 
Terace Het yi beee ted, 9 


3970 GETS were required to define 79 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SHWCLSTR/OBJ=0BJ$:SHWCLSTR MSRC$:SHWCLSTR/UPDATE=(ENHS$: SHWCLSTR) +EXECML$/LIB+SHRLIB$:PALIB/LIB 
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